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/branches/SMLNJ/src/cm/compile/bfc.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cm/compile/bfc.sml

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

revision 629, Wed Apr 26 04:06:41 2000 UTC revision 630, Wed Apr 26 18:40:56 2000 UTC
# Line 5  Line 5 
5   *   then there is a "consumer" traversal that uses the binfile contents.   *   then there is a "consumer" traversal that uses the binfile contents.
6   *   No error checking is done -- the "get" operation assumes that the   *   No error checking is done -- the "get" operation assumes that the
7   *   stuff is either in its cache or in the file system.   *   stuff is either in its cache or in the file system.
8     *   Moreover, the static environment cannot be used (BF.senvOf will fail
9     *   if the binfile had to be reloaded from disk).
10   *   *
11   * (C) 1999 Lucent Technologies, Bell Laboratories   * (C) 1999 Lucent Technologies, Bell Laboratories
12   *   *
# Line 47  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.629  
changed lines
  Added in v.630

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