equal
deleted
inserted
replaced
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), |