Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/util/say.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 354, Fri Jun 25 08:36:12 1999 UTC revision 433, Mon Sep 13 06:57:29 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 EnvConfig.getSet cnd NONE then say l else ()      fun csay { get, set } l = if get () 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

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

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