# HG changeset patch
# User wenzelm
# Date 1301670968 -7200
# Node ID ded5ba6b7bacfd6512f4e3077f56bd4cb3f69019
# Parent  5f311600ba2674ddd0ba08f957071317dd4ac9df
use Unsynchronized.change convenience, which also emphasizes the raw access to these references (which happen to be local here);

diff -r 5f311600ba26 -r ded5ba6b7bac src/Tools/quickcheck.ML
--- a/src/Tools/quickcheck.ML	Fri Apr 01 16:29:58 2011 +0200
+++ b/src/Tools/quickcheck.ML	Fri Apr 01 17:16:08 2011 +0200
@@ -115,12 +115,14 @@
     timings = #timings r, reports = cons (size, report) (#reports r)}
   | cons_report _ NONE result = result
 
-fun add_timing timing result_ref = (result_ref := cons_timing timing (!result_ref))
+fun add_timing timing result_ref =
+  Unsynchronized.change result_ref (cons_timing timing)
 
-fun add_report size report result_ref = (result_ref := cons_report size report (!result_ref))
+fun add_report size report result_ref =
+  Unsynchronized.change result_ref (cons_report size report)
 
 fun add_response names eval_terms response result_ref =
-  (result_ref := set_reponse names eval_terms response (!result_ref))
+  Unsynchronized.change result_ref (set_reponse names eval_terms response)
 
 (* expectation *)