# HG changeset patch
# User wenzelm
# Date 1419028020 -3600
# Node ID faaedc8222c8e059903027e0f935384152bf97b8
# Parent  9312710451f5433de95ef91abc56bbe28e4038ff
updated according to eb3e399f5b9f;

diff -r 9312710451f5 -r faaedc8222c8 src/Pure/Concurrent/synchronized_sequential.ML
--- a/src/Pure/Concurrent/synchronized_sequential.ML	Fri Dec 19 23:01:46 2014 +0100
+++ b/src/Pure/Concurrent/synchronized_sequential.ML	Fri Dec 19 23:27:00 2014 +0100
@@ -11,6 +11,7 @@
 with
 
 fun var _ x = Var (Unsynchronized.ref x);
+fun peek (Var var) = ! var;
 fun value (Var var) = ! var;
 
 fun timed_access (Var var) _ f =