equal
deleted
inserted
replaced
226 val setup = |
226 val setup = |
227 Code.datatype_interpretation ensure_term_of |
227 Code.datatype_interpretation ensure_term_of |
228 #> Code.abstype_interpretation ensure_term_of |
228 #> Code.abstype_interpretation ensure_term_of |
229 #> Code.datatype_interpretation ensure_term_of_code |
229 #> Code.datatype_interpretation ensure_term_of_code |
230 #> Code.abstype_interpretation ensure_abs_term_of_code |
230 #> Code.abstype_interpretation ensure_abs_term_of_code |
231 #> Context.theory_map (Syntax_Phases.term_check 0 "termify" check_termify) |
231 #> Context.theory_map (Syntax_Phases.term_check 0 "termify" check_termify); |
232 #> Value.add_evaluator ("code", dynamic_value_strict); |
|
233 |
232 |
234 end; |
233 end; |