SCM Repository
Diff of /trunk/src/compiler/driver/main.sml
Parent Directory
|
Revision Log
|
Patch
revision 92, Thu May 27 15:16:48 2010 UTC | revision 93, Thu May 27 15:32:06 2010 UTC | |
---|---|---|
# | Line 32 | Line 32 |
32 | in | in |
33 | case Parser.parseFile (errStrm, inS) | case Parser.parseFile (errStrm, inS) |
34 | of NONE => (checkForErrors errStrm; quitWithError ()) | of NONE => (checkForErrors errStrm; quitWithError ()) |
35 | | SOME pt => ( | | SOME pt => let |
36 | val _ = checkForErrors errStrm; | |
37 | val ast = (checkTypes pt) handle Typechecker.Error => AST.Program[] | |
38 | in | |
39 | checkForErrors errStrm; | checkForErrors errStrm; |
40 | ignore (checkTypes pt) handle Typechecker.Error => (); | ASTPP.output (TextIO.stdOut, ast) (* DEBUG *) |
41 | checkForErrors errStrm) | end |
42 | (* end case *); | (* end case *); |
43 | TextIO.closeIn inS | TextIO.closeIn inS |
44 | end | end |
|
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |