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-3/compiler/Elaborator/elaborate/elabmod.sml
ViewVC logotype

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

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

revision 3313, Tue May 5 21:00:19 2009 UTC revision 3314, Tue May 5 21:09:23 2009 UTC
# Line 62  Line 62 
62  (* debugging *)  (* debugging *)
63  val say = Control_Print.say  val say = Control_Print.say
64  val debugging =  ElabControl.emdebugging (* ref false *)  val debugging =  ElabControl.emdebugging (* ref false *)
 val _ = debugging := true  
65    
66  fun debugmsg (msg: string) =  fun debugmsg (msg: string) =
67        if !debugging then (say msg; say "\n") else ()        if !debugging then (say msg; say "\n") else ()

Legend:
Removed from v.3313  
changed lines
  Added in v.3314

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