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 326, Thu Jun 10 06:08:29 1999 UTC revision 327, Thu Jun 10 09:14:48 1999 UTC
# Line 162  Line 162 
162                     | SOME be => load be)                     | SOME be => load be)
163      end      end
164    
165      fun dosml (i, { envs = { stat, sym }, pids }, gp) =      fun dosml (i, { envs = { stat, sym }, pids }, gp) = let
166            val pids = PidSet.union (pids, #pervcorepids (#param gp))
167        in
168          case Option.map memo2envdelta (PS.recomp_look_sml (i, pids, gp)) of          case Option.map memo2envdelta (PS.recomp_look_sml (i, pids, gp)) of
169              SOME d => SOME d              SOME d => SOME d
170            | NONE => let            | NONE => let
# Line 261  Line 263 
263                          else compile ()                          else compile ()
264              end              end
265  end  end
266    end

Legend:
Removed from v.326  
changed lines
  Added in v.327

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