src/Tools/Compute_Oracle/report.ML
changeset 32740 9dd0a2f83429
parent 30187 b92b3375e919
child 32960 69916a850301
--- a/src/Tools/Compute_Oracle/report.ML	Tue Sep 29 14:59:24 2009 +0200
+++ b/src/Tools/Compute_Oracle/report.ML	Tue Sep 29 16:24:36 2009 +0200
@@ -3,7 +3,7 @@
 
 local
 
-    val report_depth = ref 0
+    val report_depth = Unsynchronized.ref 0
     fun space n = if n <= 0 then "" else (space (n-1))^" "
     fun report_space () = space (!report_depth)