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])] =>