Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

Parent Directory | Revision Log | Patch

	revision 433, Mon Sep 13 06:57:29 1999 UTC	revision 434, Mon Sep 13 08:40:49 1999 UTC
#	Line 13	Line 13
13	val deliver' : string option -> bool	val deliver' : string option -> bool
14	val deliver : unit -> bool	val deliver : unit -> bool
15	val reset : unit -> unit	val reset : unit -> unit
16		val symval : string -> { get: unit -> int option, set: int option -> unit }
17	end = struct	end = struct
18
19	structure EM = GenericVC.ErrorMsg	structure EM = GenericVC.ErrorMsg
#	Line 304	Line 305
305	work = fn () => compile true arg,	work = fn () => compile true arg,
306	cleanup = fn () => () }	cleanup = fn () => () }
307	fun deliver () = deliver' NONE	fun deliver () = deliver' NONE
308		val symval = SSV.symval
309	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.433   changed lines   Added in v.434

---

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