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

Parent Directory | Revision Log | Patch

	revision 310, Wed Jun 2 07:28:27 1999 UTC	revision 321, Tue Jun 8 08:14:28 1999 UTC
#	Line 17	Line 17
17
18	fun say l = (Print.say (concat l); Print.flush ())	fun say l = (Print.say (concat l); Print.flush ())
19
20	fun csay cnd l = if cnd NONE then say l else ()	fun csay cnd l = if EnvConfig.getSet cnd NONE then say l else ()
21	val vsay = csay StdConfig.verbose	val vsay = csay StdConfig.verbose
22	val dsay = csay StdConfig.debug	val dsay = csay StdConfig.debug
23	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.310   changed lines   Added in v.321

---

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