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

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

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

revision 360, Tue Jun 29 09:21:02 1999 UTC revision 361, Wed Jun 30 06:44:04 1999 UTC
# Line 22  Line 22 
22      type envdelta = env      type envdelta = env
23      type result = E.dynenv      type result = E.dynenv
24    
25        fun reset () = ()
26    
27      fun layer ((d, sl, bl), (d', sl', bl')) =      fun layer ((d, sl, bl), (d', sl', bl')) =
28          (fn () => DE.atop (d (), d' ()), sl @ sl', bl @ bl')          (fn () => DE.atop (d (), d' ()), sl @ sl', bl @ bl')
29    

Legend:
Removed from v.360  
changed lines
  Added in v.361

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