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/smlfile/smlinfo.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/smlfile/smlinfo.sml

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

revision 363, Fri Jul 2 02:45:45 1999 UTC revision 364, Fri Jul 2 07:33:12 1999 UTC
# Line 193  Line 193 
193                  in                  in
194                      (SF.parse source, source)                      (SF.parse source, source)
195                  end                  end
196                  fun openIt () = SrcPath.openTextIn sourcepath                  fun openIt () = TextIO.openIn (SrcPath.osstring sourcepath)
197                  val pto =                  val pto =
198                      SOME (SafeIO.perform { openIt = openIt,                      SOME (SafeIO.perform { openIt = openIt,
199                                             closeIt = TextIO.closeIn,                                             closeIt = TextIO.closeIn,

Legend:
Removed from v.363  
changed lines
  Added in v.364

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