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/branches/primop-branch-2/src/compiler/Elaborator/elaborate/elabmod.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-2/src/compiler/Elaborator/elaborate/elabmod.sml

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

revision 1999, Mon Jul 31 16:05:41 2006 UTC revision 2000, Mon Jul 31 18:07:17 2006 UTC
# Line 63  Line 63 
63    
64  (* debugging *)  (* debugging *)
65  val say = Control_Print.say  val say = Control_Print.say
66  val debugging = ref true; (* ElabControl.emdebugging (* ref false *) *)  val debugging = ElabControl.emdebugging (* ref false *)
67  fun debugmsg (msg: string) =  fun debugmsg (msg: string) =
68        if !debugging then (say msg; say "\n") else ()        if !debugging then (say msg; say "\n") else ()
69    

Legend:
Removed from v.1999  
changed lines
  Added in v.2000

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