src/Tools/nbe.ML
changeset 24508 c8b82fec6447
parent 24493 d4380e9b287b
child 24590 733120d04233
     1.1 --- a/src/Tools/nbe.ML	Sat Sep 01 01:22:11 2007 +0200
     1.2 +++ b/src/Tools/nbe.ML	Sat Sep 01 15:46:59 2007 +0200
     1.3 @@ -377,9 +377,9 @@
     1.4  
     1.5  (** Isar setup **)
     1.6  
     1.7 -fun norm_print_term_cmd (modes, raw_t) state =
     1.8 +fun norm_print_term_cmd (modes, s) state =
     1.9    let val ctxt = Toplevel.context_of state
    1.10 -  in norm_print_term ctxt modes (ProofContext.read_term ctxt raw_t) end;
    1.11 +  in norm_print_term ctxt modes (Syntax.read_term ctxt s) end;
    1.12  
    1.13  val setup = Theory.add_oracle ("normalization", normalization_oracle)
    1.14