src/Tools/nbe.ML
changeset 47573 6244475356ba
parent 47572 1e18bbfb40cb
child 47609 b3dab1892cda
     1.1 --- a/src/Tools/nbe.ML	Thu Apr 19 09:31:36 2012 +0200
     1.2 +++ b/src/Tools/nbe.ML	Thu Apr 19 09:45:49 2012 +0200
     1.3 @@ -605,13 +605,11 @@
     1.4  
     1.5  fun static_conv thy consts =
     1.6    lift_triv_classes_conv thy (Code_Thingol.static_conv thy consts
     1.7 -    (K (fn program => fn _ => let val nbe_program = compile true thy program
     1.8 -      in oracle thy program nbe_program end)));
     1.9 +    (K (fn program => fn _ => oracle thy program (compile true thy program))));
    1.10  
    1.11  fun static_value thy consts = lift_triv_classes_rew thy
    1.12    (Code_Thingol.static_value thy I consts
    1.13 -    (K (fn program => fn _ => let val nbe_program = compile true thy program
    1.14 -      in eval_term thy program (compile false thy program) end)));
    1.15 +    (K (fn program => fn _ => eval_term thy program (compile true thy program))));
    1.16  
    1.17  
    1.18  (** setup **)