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 463, Fri Nov 5 08:31:08 1999 UTC revision 464, Tue Nov 9 06:49:52 1999 UTC
# Line 33  Line 33 
33      val archos = concat [arch, "-", osname]      val archos = concat [arch, "-", osname]
34    
35      fun init_servers (GroupGraph.GROUP { grouppath, ... }) =      fun init_servers (GroupGraph.GROUP { grouppath, ... }) =
36          Servers.cmb { archos = archos, root = grouppath }          Servers.cmb { archos = archos,
37                          root = SrcPath.descr grouppath }
38    
39      structure Compile = CompileFn (structure MachDepVC = MachDepVC      structure Compile = CompileFn (structure MachDepVC = MachDepVC
40                                     val compile_there = Servers.compile)                                     val compile_there =
41                                           Servers.compile o SrcPath.descr)
42    
43      structure BFC = BfcFn (structure MachDepVC = MachDepVC)      structure BFC = BfcFn (structure MachDepVC = MachDepVC)
44    
# Line 145  Line 147 
147                  NONE => stdpath maingspec                  NONE => stdpath maingspec
148                | SOME r => SrcPath.fromDescr pcmode r                | SOME r => SrcPath.fromDescr pcmode r
149    
150            val _ = Say.say ["CMB: maingspec = ", SrcPath.osstring maingspec,
151                             ", cwd = ", OS.FileSys.getDir (), "\n"]
152    
153          val cmifile = valOf (SrcPath.reAnchoredName (initgspec, bootdir))          val cmifile = valOf (SrcPath.reAnchoredName (initgspec, bootdir))
154              handle Option => raise Fail "BootstrapCompile: cmifile"              handle Option => raise Fail "BootstrapCompile: cmifile"
155    

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

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