diff options
| author | herbelin | 2009-01-07 20:14:57 +0000 |
|---|---|---|
| committer | herbelin | 2009-01-07 20:14:57 +0000 |
| commit | 5d714a3a78f949fd48c24bec17193bc62d8024a3 (patch) | |
| tree | b3beeb8d624834e8fb5599b6be4e2829ab8ddda1 | |
| parent | 2dbf4bfec1575bf6a405705becb04f923a78a6f1 (diff) | |
Fixing a cosmetic tactic printer bug in passing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11764 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/pptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 2f102488f5..447bb734a7 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -178,7 +178,7 @@ let rec pr_raw_generic prc prlc prtac prref (x:Genarg.rlevel Genarg.generic_argu x) | ExtraArgType s -> try pi1 (Stringmap.find s !genarg_pprule) prc prlc prtac x - with Not_found -> str " [no printer for " ++ str s ++ str "] " + with Not_found -> str "[no printer for " ++ str s ++ str "]" let rec pr_glob_generic prc prlc prtac x = @@ -223,7 +223,7 @@ let rec pr_glob_generic prc prlc prtac x = x) | ExtraArgType s -> try pi2 (Stringmap.find s !genarg_pprule) prc prlc prtac x - with Not_found -> str "[no printer for " ++ str s ++ str "] " + with Not_found -> str "[no printer for " ++ str s ++ str "]" open Closure |