diff options
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 4276ed46..9a213ab6 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -70,7 +70,7 @@ fun elaborate env filename = fun corify eenv cenv filename = case elaborate eenv filename of NONE => NONE - | SOME (_, file) => + | SOME (file, _) => if ErrorMsg.anyErrors () then NONE else @@ -131,7 +131,7 @@ fun testParse filename = fun testElaborate filename = (case elaborate ElabEnv.basis filename of NONE => print "Failed\n" - | SOME (_, file) => + | SOME (file, _) => (Print.print (ElabPrint.p_file ElabEnv.basis file); print "\n")) handle ElabEnv.UnboundNamed n => |