Mercurial > urweb

diff src/mono_print.sml @ 26:4ab19c19665f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Closure conversion
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 15:56:33 -0400
parents 0a762c73824d
children 537db4ee89f4
line wrap: on
line diff
--- a/src/mono_print.sml	Tue Jun 10 13:14:45 2008 -0400
+++ b/src/mono_print.sml	Tue Jun 10 15:56:33 2008 -0400
@@ -77,17 +77,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_typ 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_typ env t,
+                                               space,
+                                               string "=>",
+                                               space,
+                                               p_exp (E.pushERel env x t) e])
 
       | ERecord xes => box [string "{",
                             p_list (fn (x, e) =>