diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-29 15:43:17 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-29 15:43:17 -0400 |
| commit | 846cf3f1661a8c91e40d80382db28c76dceaf1f0 (patch) | |
| tree | fe42c0c78660d50832719e1ae9fd9cda2d7e603f /src/mono_print.sml | |
| parent | cb3b3831a07d6674a5fa02e3e8a1e4329b58cb34 (diff) | |
Storing datatype constructors in type references past monoize
Diffstat (limited to 'src/mono_print.sml')
| -rw-r--r-- | src/mono_print.sml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index 4ab38af3..04380a19 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -53,11 +53,11 @@ fun p_typ' par env (t, _) = space, p_typ env t]) xcs, string "}"] - | TNamed n => + | TDatatype (n, _) => if !debug then - string (#1 (E.lookupTNamed env n) ^ "__" ^ Int.toString n) + string (#1 (E.lookupDatatype env n) ^ "__" ^ Int.toString n) else - string (#1 (E.lookupTNamed env n)) + string (#1 (E.lookupDatatype env n)) | TFfi (m, x) => box [string "FFI(", string m, string ".", string x, string ")"] and p_typ env = p_typ' false env @@ -164,7 +164,7 @@ fun p_vali env (x, n, t, e, s) = fun p_datatype env (x, n, cons) = let - val env = E.pushTNamed env x n NONE + val env = E.pushDatatype env x n cons in box [string "datatype", space, |