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

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

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

revision 305, Mon May 31 15:00:06 1999 UTC revision 306, Tue Jun 1 08:25:21 1999 UTC
# Line 109  Line 109 
109            sym = (BF.symenvOf bfc, BF.lambdaPidOf bfc),            sym = (BF.symenvOf bfc, BF.lambdaPidOf bfc),
110            ctxt = ctxt }            ctxt = ctxt }
111    
112      fun dostable (i, mkenv, gp) = let      fun dostable (i, mkenv, gp: GeneralParams.info) = let
113          fun load be = let          fun load be = let
114              val fnp = #fnpolicy (#param gp)              val fnp = #fnpolicy (#param gp)
115              val stable = FilenamePolicy.mkStablePath fnp (BinInfo.group i)              val stable = FilenamePolicy.mkStablePath fnp (BinInfo.group i)
# Line 134  Line 134 
134                       PP.add_newline pps)                       PP.add_newline pps)
135              in              in
136                  BinIO.closeIn s;                  BinIO.closeIn s;
137                  BinInfo.error gp i EM.COMPLAIN                  BinInfo.error i EM.COMPLAIN
138                         "unable to load stable library module" ppb;                         "unable to load stable library module" ppb;
139                  NONE                  NONE
140              end              end

Legend:
Removed from v.305  
changed lines
  Added in v.306

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