src/HOL/Tools/Lifting/lifting_setup.ML
changeset 57918 f5d73caba4e5
parent 57663 b590fcd03a4a
child 58011 bc6bced136e5
--- a/src/HOL/Tools/Lifting/lifting_setup.ML	Tue Aug 12 18:54:53 2014 +0200
+++ b/src/HOL/Tools/Lifting/lifting_setup.ML	Tue Aug 12 20:18:27 2014 +0200
@@ -221,7 +221,7 @@
 
     val thy = Proof_Context.theory_of lthy
     val dummy_thm = Thm.transfer thy Drule.dummy_thm
-    val pointer = Outer_Syntax.scan Position.none bundle_name
+    val pointer = Outer_Syntax.scan (Keyword.get_lexicons ()) Position.none bundle_name
     val restore_lifting_att = 
       ([dummy_thm], [Args.src ("Lifting.lifting_restore_internal", Position.none) pointer])
   in