diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-07-25 20:22:07 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-07-25 20:24:49 +0200 |
| commit | 0736cd1ff1eb07c6faae43cdfbe2efd11c8470e9 (patch) | |
| tree | ecb06e9072845622a0b1b0d5c447064ae8f630b8 /printing | |
| parent | 8aec3a45d93b61874ef2567d1430821067905eb3 (diff) | |
Removing dead code relative to or_metaid.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 4 | ||||
| -rw-r--r-- | printing/pptactic.mli | 1 |
2 files changed, 0 insertions, 5 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 90341a69b..04e1a4923 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -82,10 +82,6 @@ let pr_or_var pr = function | ArgArg x -> pr x | ArgVar (_,s) -> pr_id s -let pr_or_metaid pr = function - | AI x -> pr x - | _ -> failwith "pr_hyp_location: unexpected quotation meta-variable" - let pr_and_short_name pr (c,_) = pr c let pr_or_by_notation f = function diff --git a/printing/pptactic.mli b/printing/pptactic.mli index 7dbdf80aa..82cb9c0a5 100644 --- a/printing/pptactic.mli +++ b/printing/pptactic.mli @@ -17,7 +17,6 @@ open Pattern open Misctypes val pr_or_var : ('a -> std_ppcmds) -> 'a or_var -> std_ppcmds -val pr_or_metaid : ('a -> std_ppcmds) -> 'a or_metaid -> std_ppcmds val pr_and_short_name : ('a -> std_ppcmds) -> 'a and_short_name -> std_ppcmds val pr_or_by_notation : ('a -> std_ppcmds) -> 'a or_by_notation -> std_ppcmds |