Diff of /sml/trunk/src/cm/main/autoload.sml

Parent Directory | Revision Log | Patch

	revision 376, Wed Jul 7 04:25:11 1999 UTC	revision 377, Wed Jul 7 06:55:18 1999 UTC
#	Line 158	Line 158
158	(#set ter (BE.concatEnv (e, te));	(#set ter (BE.concatEnv (e, te));
159	pending := noloadmap;	pending := noloadmap;
160	Say.say ["[autoloading done]\n"])	Say.say ["[autoloading done]\n"])
161	| NONE => Say.say ["[autoloading failed]\n"]) })	| NONE => raise Fail "unable to load module(s)") }
162		handle Fail msg =>
163		Say.say ["[autoloading failed: ", msg, "]\n"])
164	end	end
165
166	fun getPending () = SymbolMap.map #1 (!pending)	fun getPending () = SymbolMap.map #1 (!pending)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.376   changed lines   Added in v.377

---

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