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

Parent Directory | Revision Log | Patch

	revision 450, Fri Oct 22 17:10:09 1999 UTC	revision 451, Sat Oct 23 15:05:55 1999 UTC
#	Line 261	Line 261
261	case SmlInfo.parsetree gp i of	case SmlInfo.parsetree gp i of
262	NONE => NONE	NONE => NONE
263	| SOME (ast, source) => let	| SOME (ast, source) => let
	val _ =
	Say.vsay ["[compiling ", SmlInfo.descr i, "]\n"]
264	val corenv = #corenv (#param gp)	val corenv = #corenv (#param gp)
265	val cmData = PidSet.listItems pids	val cmData = PidSet.listItems pids
266	(* clear error flag (could still be set from	(* clear error flag (could still be set from
#	Line 340	Line 338
338	fun compile_again () =	fun compile_again () =
339	compile_here (stat, sym, pids)	compile_here (stat, sym, pids)
340	fun compile () = let	fun compile () = let
341		val _ =
342		Say.vsay ["[compiling ",
343		SmlInfo.descr i, "]\n"]
344	val sp = SmlInfo.sourcepath i	val sp = SmlInfo.sourcepath i
345	in	in
346	if compile_there sp then	if compile_there sp then

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.450   changed lines   Added in v.451

---

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