src/HOL/Tools/Lifting/lifting_setup.ML
changeset 56026 893fe12639bc
parent 55563 a64d49f49ca3
child 56029 8bedca4bd5a3
--- a/src/HOL/Tools/Lifting/lifting_setup.ML	Mon Mar 10 13:55:03 2014 +0100
+++ b/src/HOL/Tools/Lifting/lifting_setup.ML	Mon Mar 10 15:04:01 2014 +0100
@@ -954,8 +954,7 @@
 
 fun pointer_of_bundle_name bundle_name ctxt =
   let
-    val bundle_name = Bundle.check ctxt bundle_name
-    val bundle = Bundle.the_bundle ctxt bundle_name
+    val bundle = Bundle.get_bundle_cmd ctxt bundle_name
   in
     case bundle of
       [(_, [arg_src])] =>