# HG changeset patch
# User haftmann
# Date 1284967162 -7200
# Node ID 49c319fff40cd078833affb745236abfa46ac44e
# Parent  90a74f43174d5d11beeb745a4e2ea59779094aa4
adjusted

diff -r 90a74f43174d -r 49c319fff40c doc-src/more_antiquote.ML
--- a/doc-src/more_antiquote.ML	Mon Sep 20 09:19:17 2010 +0200
+++ b/doc-src/more_antiquote.ML	Mon Sep 20 09:19:22 2010 +0200
@@ -29,7 +29,7 @@
   let
     val thy = ProofContext.theory_of ctxt;
     val const = Code.check_const thy raw_const;
-    val (_, eqngr) = Code_Preproc.obtain thy [const] [];
+    val (_, eqngr) = Code_Preproc.obtain true thy [const] [];
     fun holize thm = @{thm meta_eq_to_obj_eq} OF [thm];
     val thms = Code_Preproc.cert eqngr const
       |> Code.equations_of_cert thy