Mercurial > urweb

diff src/mono_print.sml @ 111:2d6116de9cca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Closure code generation almost there
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 12:06:47 -0400
parents 813e5a52063d
children ff13d390ec60
line wrap: on
line diff
--- a/src/mono_print.sml	Sun Jul 13 11:43:57 2008 -0400
+++ b/src/mono_print.sml	Sun Jul 13 12:06:47 2008 -0400
@@ -130,6 +130,12 @@
                               space,
                               p_exp env e2]
 
+      | EClosure (n, es) => box [string "CLOSURE(",
+                                 p_enamed env n,
+                                 p_list_sep (string "") (fn e => box [string ", ",
+                                                                      p_exp env e]) es,
+                                 string ")"]
+
 and p_exp env = p_exp' false env
 
 fun p_decl env ((d, _) : decl) =