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

SCM Repository

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

Diff of /branches/vis15/src/compiler/driver/main.sml

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

revision 3753, Thu Apr 14 06:02:18 2016 UTC revision 3813, Wed May 4 13:20:06 2016 UTC
# Line 88  Line 88 
88              before finish()              before finish()
89            end            end
90    
91      fun doFile (target : Target.desc, filename) = let      fun doFile (target : TargetOptions.t, filename) = let
92            val baseName = (case OS.Path.splitBaseExt filename            val baseName = (case OS.Path.splitBaseExt filename
93                   of {base, ext=SOME "diderot"} => base                   of {base, ext=SOME "diderot"} => base
94                    | _ => (errnl "expected diderot file"; quitWithError filename)                    | _ => (errnl "expected diderot file"; quitWithError filename)

Legend:
Removed from v.3753  
changed lines
  Added in v.3813

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