diff options
Diffstat (limited to 'pretyping/program.ml')
| -rw-r--r-- | pretyping/program.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/pretyping/program.ml b/pretyping/program.ml index db821f1762..a8e91856b3 100644 --- a/pretyping/program.ml +++ b/pretyping/program.ml @@ -11,8 +11,6 @@ open Util open Names open Term -type message = string - let make_dir l = make_dirpath (List.map id_of_string (List.rev l)) let find_reference locstr dir s = @@ -63,10 +61,3 @@ let mk_coq_and l = (fun c conj -> mkApp (and_typ, [| c ; conj |])) l - -let with_program f c = - let mode = !Flags.program_mode in - Flags.program_mode := true; - let res = f c in - Flags.program_mode := mode; - res |