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

Parent Directory | Revision Log | Patch

	revision 275, Sat May 15 09:54:52 1999 UTC	revision 276, Mon May 17 06:01:28 1999 UTC
#	Line 18	Line 18
18	fun say s = (Print.say s; Print.flush ())	fun say s = (Print.say s; Print.flush ())
19
20	fun csay cnd s = if cnd NONE then say s else ()	fun csay cnd s = if cnd NONE then say s else ()
21	val vsay = csay EnvConfig.verbose	val vsay = csay StdConfig.verbose
22	val dsay = csay EnvConfig.debug	val dsay = csay StdConfig.debug
23	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.275   changed lines   Added in v.276

---

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