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/compile/bfc.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/bfc.sml

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

revision 458, Thu Oct 28 14:22:55 1999 UTC revision 459, Fri Oct 29 06:22:25 1999 UTC
# Line 49  Line 49 
49                      SafeIO.perform { openIt = fn () => BinIO.openIn binname,                      SafeIO.perform { openIt = fn () => BinIO.openIn binname,
50                                       closeIt = BinIO.closeIn,                                       closeIt = BinIO.closeIn,
51                                       work = reader,                                       work = reader,
52                                       cleanup = fn () => () }                                       cleanup = fn _ => () }
53                  end                  end
54      in      in
55          { store = store, get = get }          { store = store, get = get }

Legend:
Removed from v.458  
changed lines
  Added in v.459

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