diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-16 12:41:33 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-16 12:41:33 -0400 |
| commit | c50a06b4118eac12702518e03ecca87f95f34cc4 (patch) | |
| tree | b05b4f028035c9fbcc9f2477a69002c8b0034312 /src/especialize.sml | |
| parent | 757f1700cc23e0d8737a5e2f81d4b065420dce94 (diff) | |
Fix a Core_untangle bug that missed closure variable references; XHTMLize
Diffstat (limited to 'src/especialize.sml')
| -rw-r--r-- | src/especialize.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/especialize.sml b/src/especialize.sml index 3ea4dcbd..9504a0be 100644 --- a/src/especialize.sml +++ b/src/especialize.sml @@ -348,7 +348,8 @@ fun specialize' file = (DValRec vis', _) => [(DValRec (vis @ vis'), ErrorMsg.dummySpan)] | _ => [(DValRec vis, ErrorMsg.dummySpan), d']) in - (*Print.prefaces "doDecl" [("d", CorePrint.p_decl E.empty d)];*) + (*Print.prefaces "doDecl" [("d", CorePrint.p_decl E.empty d), + ("d'", CorePrint.p_decl E.empty d')];*) (ds, ({maxName = #maxName st, funcs = funcs, decls = []}, changed)) @@ -378,7 +379,9 @@ fun specialize file = if changed then let (*val file = ReduceLocal.reduce file*) + (*val () = Print.prefaces "Pre-untangle" [("file", CorePrint.p_file CoreEnv.empty file)]*) val file = CoreUntangle.untangle file + (*val () = Print.prefaces "Post-untangle" [("file", CorePrint.p_file CoreEnv.empty file)]*) val file = Shake.shake file in (*print "Again!\n";*) |