# HG changeset patch
# User wenzelm
# Date 878307590 -3600
# Node ID 026069ba0316e74ade8e0ec6cdb9313c53eb370d
# Parent  6b72919c9b4bb4d636877195b194bf755f5df415
*** empty log message ***

diff -r 6b72919c9b4b -r 026069ba0316 src/Pure/sign.ML
--- a/src/Pure/sign.ML	Fri Oct 31 15:15:06 1997 +0100
+++ b/src/Pure/sign.ML	Fri Oct 31 15:19:50 1997 +0100
@@ -171,7 +171,7 @@
 
 (* data *)
 
-fun access_data f sg = f (#data (rep_sg sg))
+fun access_data f sg k = f (#data (rep_sg sg)) k
   handle ERROR => error ("of theory " ^ str_of_sg sg);
 
 val get_data = access_data Data.get;