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/cmb-slave-stub.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/cmb-slave-stub.sml

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

revision 657, Fri Jun 9 05:20:54 2000 UTC revision 658, Mon Jun 12 02:39:37 2000 UTC
# Line 12  Line 12 
12          val loaded = ref StringSet.empty (* remember what we already have *)          val loaded = ref StringSet.empty (* remember what we already have *)
13      in      in
14          fun slave load arch s = let          fun slave load arch s = let
15              val lib = concat ["$/smlnj/cmb/", arch, ".cm"]              val lib = concat ["$smlnj/cmb/", arch, ".cm"]
16              (* eg. sparc-unix -> $/smlnj/cmb/sparc-unix.cm *)              (* eg. sparc-unix -> $smlnj/cmb/sparc-unix.cm *)
17          in          in
18              if StringSet.member (!loaded, lib) then ()              if StringSet.member (!loaded, lib) then ()
19              else if load lib then loaded := StringSet.add (!loaded, lib)              else if load lib then loaded := StringSet.add (!loaded, lib)

Legend:
Removed from v.657  
changed lines
  Added in v.658

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