diff src/core_print.sml @ 26:4ab19c19665f

Closure conversion
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 15:56:33 -0400
parents 067029c748e9
children 537db4ee89f4
line wrap: on
line diff
--- a/src/core_print.sml	Tue Jun 10 13:14:45 2008 -0400
+++ b/src/core_print.sml	Tue Jun 10 15:56:33 2008 -0400
@@ -155,17 +155,17 @@
       | EApp (e1, e2) => parenIf par (box [p_exp env e1,
                                            space,
                                            p_exp' true env e2])
-      | EAbs (x, t, e) => parenIf par (box [string "fn",
-                                            space,
-                                            string x,
-                                            space,
-                                            string ":",
-                                            space,
-                                            p_con env t,
-                                            space,
-                                            string "=>",
-                                            space,
-                                            p_exp (E.pushERel env x t) e])
+      | EAbs (x, t, _, e) => parenIf par (box [string "fn",
+                                               space,
+                                               string x,
+                                               space,
+                                               string ":",
+                                               space,
+                                               p_con env t,
+                                               space,
+                                               string "=>",
+                                               space,
+                                               p_exp (E.pushERel env x t) e])
       | ECApp (e, c) => parenIf par (box [p_exp env e,
                                           space,
                                           string "[",