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 344, Sun Jun 20 03:14:57 1999 UTC revision 345, Sun Jun 20 11:55:26 1999 UTC
# Line 52  Line 52 
52          val binroot = AbsPath.native { context = ctxt, spec = binroot }          val binroot = AbsPath.native { context = ctxt, spec = binroot }
53    
54          val pcmode = let          val pcmode = let
55              val s = AbsPath.openTextIn pcmodespec              fun work s = let
56              fun loop l = let              fun loop l = let
57                  val line = TextIO.inputLine s                  val line = TextIO.inputLine s
58              in              in
# Line 64  Line 64 
64                            loop l)                            loop l)
65              end              end
66          in          in
67              loop [] before TextIO.closeIn s                  loop []
68                end
69            in
70                SafeIO.perform { openIt = fn () => AbsPath.openTextIn pcmodespec,
71                                 closeIt = TextIO.closeIn,
72                                 work = work,
73                                 cleanup = fn () => () }
74          end          end
75    
76          val fnpolicy =          val fnpolicy =

Legend:
Removed from v.344  
changed lines
  Added in v.345

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