Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 464, Tue Nov 9 06:49:52 1999 UTC revision 465, Tue Nov 9 09:08:54 1999 UTC
# Line 147  Line 147 
147                  NONE => stdpath maingspec                  NONE => stdpath maingspec
148                | SOME r => SrcPath.fromDescr pcmode r                | SOME r => SrcPath.fromDescr pcmode r
149    
         val _ = Say.say ["CMB: maingspec = ", SrcPath.osstring maingspec,  
                          ", cwd = ", OS.FileSys.getDir (), "\n"]  
   
150          val cmifile = valOf (SrcPath.reAnchoredName (initgspec, bootdir))          val cmifile = valOf (SrcPath.reAnchoredName (initgspec, bootdir))
151              handle Option => raise Fail "BootstrapCompile: cmifile"              handle Option => raise Fail "BootstrapCompile: cmifile"
152    

Legend:
Removed from v.464  
changed lines
  Added in v.465

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