doc-src/more_antiquote.ML
changeset 31794 71af1fd6a5e4
parent 31156 90fed3d4430f
child 34072 99eda1d59da9
--- a/doc-src/more_antiquote.ML	Wed Jun 24 20:52:49 2009 +0200
+++ b/doc-src/more_antiquote.ML	Wed Jun 24 21:28:02 2009 +0200
@@ -81,7 +81,7 @@
 fun no_vars ctxt thm =
   let
     val ctxt' = Variable.set_body false ctxt;
-    val ((_, [thm]), _) = Variable.import_thms true [thm] ctxt';
+    val ((_, [thm]), _) = Variable.import true [thm] ctxt';
   in thm end;
 
 fun pretty_code_thm src ctxt raw_const =