Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/driver/main.sml
ViewVC logotype

Diff of /trunk/src/compiler/driver/main.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 229, Wed Aug 4 15:46:08 2010 UTC revision 230, Thu Aug 5 16:00:24 2010 UTC
# Line 48  Line 48 
48            end            end
49    
50      fun main (name: string, args: string list) =      fun main (name: string, args: string list) =
51              if Inputs.initFromArgs args
52                then
53            (List.app doFile args; OS.Process.success)            (List.app doFile args; OS.Process.success)
54          handle exn => (          handle exn => (
55            err (concat [            err (concat [
# Line 55  Line 57 
57                List.app (fn s => err (concat ["  raised at ", s, "\n"]))                List.app (fn s => err (concat ["  raised at ", s, "\n"]))
58                  (SMLofNJ.exnHistory exn);                  (SMLofNJ.exnHistory exn);
59                quitWithError())                quitWithError())
60                else (err "invalid command-line inputs\n"; quitWithError())
61    
62      fun test file = (main ("", [file]); print "** Success!!\n")      fun test file = (main ("", [file]); print "** Success!!\n")
63    

Legend:
Removed from v.229  
changed lines
  Added in v.230

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0