diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-04-24 15:33:09 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-04-24 15:45:23 +0200 |
commit | 65578a55b81252e2c4b006728522839a9e37cd5c (patch) | |
tree | 3483e373cb116211e00ee664dea78efe874d39ec /toplevel/vernacentries.ml | |
parent | fd13e21ccb89e2fa3a80074f9d7afd8b0638fdcb (diff) | |
parent | 96bb190caa138c91b4d5e5f96d6f179811a177c8 (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 12869e3d5..fb57e55ef 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -37,8 +37,8 @@ open Sigma.Notations let (f_interp_redexp, interp_redexp_hook) = Hook.make () let debug = false -let prerr_endline = - if debug then prerr_endline else fun _ -> () +let prerr_endline x = + if debug then prerr_endline (x ()) else () (* Misc *) @@ -1732,7 +1732,7 @@ let vernac_load interp fname = * still parsed as the obsolete_locality grammar entry for retrocompatibility. * loc is the Loc.t of the vernacular command being interpreted. *) let interp ?proof ~loc locality poly c = - prerr_endline ("interpreting: " ^ Pp.string_of_ppcmds (Ppvernac.pr_vernac c)); + prerr_endline (fun () -> "interpreting: " ^ Pp.string_of_ppcmds (Ppvernac.pr_vernac c)); match c with (* Done later in this file *) | VernacLoad _ -> assert false |