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 369, Sun Jul 4 12:55:20 1999 UTC revision 370, Mon Jul 5 08:59:13 1999 UTC
# Line 18  Line 18 
18      structure PP = PrettyPrint      structure PP = PrettyPrint
19      structure EM = GenericVC.ErrorMsg      structure EM = GenericVC.ErrorMsg
20      structure DE = GenericVC.DynamicEnv      structure DE = GenericVC.DynamicEnv
21        structure CMSE = GenericVC.CMStaticEnv
22    
23      type pid = Pid.persstamp      type pid = Pid.persstamp
24      type bfc = BF.bfContent      type bfc = BF.bfContent
# Line 293  Line 294 
294      end      end
295    
296      fun nestedTraversalReset () = ()      fun nestedTraversalReset () = ()
297    
298        fun withAccessTrap r { envs, pids } = let
299            fun envs' () = let
300                val { stat, sym } = envs ()
301            in
302                { stat = CMSE.withAccessTrap (stat, r), sym = sym }
303            end
304        in
305            { envs = envs', pids = pids }
306        end
307  end  end

Legend:
Removed from v.369  
changed lines
  Added in v.370

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