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/ElabData/types/typesutil.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/ElabData/types/typesutil.sml

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

revision 2395, Tue Apr 10 22:12:19 2007 UTC revision 2396, Tue Apr 10 22:15:30 2007 UTC
# Line 25  Line 25 
25  infix -->  infix -->
26    
27  val say = Control_Print.say  val say = Control_Print.say
28  val debugging = ref true  val debugging = ref false
29  fun debugmsg msg = if !debugging then say ("TypesUtil: " ^ msg ^ "\n") else ()  fun debugmsg msg = if !debugging then say ("TypesUtil: " ^ msg ^ "\n") else ()
30  fun bug msg = EM.impossible("TypesUtil: "^msg)  fun bug msg = EM.impossible("TypesUtil: "^msg)
31    

Legend:
Removed from v.2395  
changed lines
  Added in v.2396

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