diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-08 13:59:29 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-08 13:59:29 -0400 |
commit | cce9fcf97f2def0b176303aa1832fe74a0b73686 (patch) | |
tree | 211609079bd7c2a1cfa515a1cf0de4a297cba2ee /src/compiler.sml | |
parent | d44758dd02286c136aecaab935fb692761bdc9a6 (diff) |
Conversion to Core
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 6ea5f1dc..51fef453 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -66,7 +66,11 @@ fun elaborate env filename = else SOME out end - + +fun corify eenv cenv filename = + case elaborate eenv filename of + NONE => NONE + | SOME (_, file) => SOME (Corify.corify file) fun testParse filename = case parse filename of @@ -84,4 +88,13 @@ fun testElaborate filename = handle ElabEnv.UnboundNamed n => print ("Unbound named " ^ Int.toString n ^ "\n") +fun testCorify filename = + (case corify ElabEnv.basis CoreEnv.basis filename of + NONE => print "Failed\n" + | SOME file => + (Print.print (CorePrint.p_file CoreEnv.basis file); + print "\n")) + handle CoreEnv.UnboundNamed n => + print ("Unbound named " ^ Int.toString n ^ "\n") + end |