diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-12 17:16:20 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-12 17:16:20 -0400 |
commit | 2355b20a32d8ed4924cee84a44831061b2b49b49 (patch) | |
tree | 7aa350f9a882036f84b87db938ee217663af875b /src/compiler.sml | |
parent | 230753c968d4615b8e875940c4147d79d04d1ad3 (diff) |
Simple signature matching
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 => |