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)