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

Parent Directory | Revision Log | 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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