diff src/cjr_print.sml @ 168:25b169416ea8

Storing datatype constructors in type references past monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 15:43:17 -0400
parents 2be573fec9a6
children 31dfab1d4050
line wrap: on
line diff
--- a/src/cjr_print.sml	Tue Jul 29 15:25:42 2008 -0400
+++ b/src/cjr_print.sml	Tue Jul 29 15:43:17 2008 -0400
@@ -53,7 +53,7 @@
 
 val debug = ref false
 
-val dummyTyp = (TDatatype 0, ErrorMsg.dummySpan)
+val dummyTyp = (TDatatype (0, []), ErrorMsg.dummySpan)
 
 fun p_typ' par env (t, loc) =
     case t of
@@ -69,7 +69,7 @@
                           space,
                           string "__lws_",
                           string (Int.toString i)]
-      | TDatatype n =>
+      | TDatatype (n, _) =>
         (box [string "struct",
               space,
               string ("__lwd_" ^ #1 (E.lookupDatatype env n) ^ "_" ^ Int.toString n ^ "*")]
@@ -445,7 +445,7 @@
                          string "})"]
                 end
 
-              | TDatatype i =>
+              | TDatatype (i, _) =>
                 let
                     val (x, xncs) = E.lookupDatatype env i