diff src/settings.sml @ 857:3d2f6cb6d54a

-debug from the command line
author Adam Chlipala <adamc@hcoop.net>
date Sat, 27 Jun 2009 10:30:51 -0400
parents 86ec89baee01
children 346cf1908a17
line wrap: on
line diff
--- a/src/settings.sml	Tue Jun 23 17:59:23 2009 -0400
+++ b/src/settings.sml	Sat Jun 27 10:30:51 2009 -0400
@@ -277,4 +277,8 @@
       | SOME p => curProto := p
 fun currentProtocol () = !curProto
 
+val debug = ref false
+fun setDebug b = debug := b
+fun getDebug () = !debug
+
 end