src/HOL/Library/Eval.thy
changeset 27103 d8549f4d900b
parent 26591 74b3c93f2428
child 27368 9f90ac19e32b
equal deleted inserted replaced
27102:a98cd7450204 27103:d8549f4d900b
   242 val eval_ref = ref (NONE : (unit -> term) option);
   242 val eval_ref = ref (NONE : (unit -> term) option);
   243 
   243 
   244 fun eval_term thy t =
   244 fun eval_term thy t =
   245   t 
   245   t 
   246   |> Eval.mk_term_of (fastype_of t)
   246   |> Eval.mk_term_of (fastype_of t)
   247   |> (fn t => CodePackage.eval_term ("Eval.eval_ref", eval_ref) thy t [])
   247   |> (fn t => CodeTarget.eval_term ("Eval.eval_ref", eval_ref) thy t [])
   248   |> Code.postprocess_term thy;
   248   |> Code.postprocess_term thy;
   249 
   249 
   250 val evaluators = [
   250 val evaluators = [
   251   ("code", eval_term),
   251   ("code", eval_term),
   252   ("SML", Codegen.eval_term),
   252   ("SML", Codegen.eval_term),