diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 2 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 3017aeacb5..04a2661d72 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -70,7 +70,7 @@ let red_constant_entry n ce = function let proof_out = ce.const_entry_body in { ce with const_entry_body = Future.chain proof_out (fun (body,eff) -> under_binders (Global.env()) - (fst (reduction_of_red_expr red)) n body,eff) } + (fst (reduction_of_red_expr (Global.env()) red)) n body,eff) } let interp_definition bl red_option c ctypopt = let env = Global.env() in diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 3c104f543f..9ee91815e9 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1350,7 +1350,7 @@ let vernac_check_may_eval redexp glopt rc = | Some r -> Tacintern.dump_glob_red_expr r; let (sigma',r_interp) = interp_redexp env sigma' r in - let redfun = fst (reduction_of_red_expr r_interp) in + let redfun = fst (reduction_of_red_expr env r_interp) in msg_notice (print_eval redfun env sigma' rc j) let vernac_declare_reduction locality s r = @@ -1413,7 +1413,7 @@ let vernac_print = function | PrintAssumptions (o,t,r) -> (* Prints all the axioms and section variables used by a term *) let cstr = constr_of_global (smart_global r) in - let st = Conv_oracle.get_transp_state () in + let st = Conv_oracle.get_transp_state (Environ.oracle (Global.env())) in let nassums = Assumptions.assumptions st ~add_opaque:o ~add_transparent:t cstr in msg_notice (Printer.pr_assumptionset (Global.env ()) nassums) |