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 328, Thu Jun 10 22:31:41 1999 UTC revision 329, Fri Jun 11 09:53:10 1999 UTC
# Line 125  Line 125 
125    
126      fun dostable (i, mkenv, gp: GeneralParams.info) = let      fun dostable (i, mkenv, gp: GeneralParams.info) = let
127          fun load be = let          fun load be = let
128              val fnp = #fnpolicy (#param gp)              val stable = BinInfo.stablepath i
             val stable = FilenamePolicy.mkStablePath fnp (BinInfo.group i)  
129              val os = BinInfo.offset i              val os = BinInfo.offset i
130              val descr = BinInfo.describe i              val descr = BinInfo.describe i
131              val _ = Say.vsay ["[consulting ", descr, "]\n"]              val _ = Say.vsay ["[consulting ", descr, "]\n"]

Legend:
Removed from v.328  
changed lines
  Added in v.329

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