diff options
| author | Hugo Herbelin | 2016-04-17 11:50:33 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:47 +0200 |
| commit | 0d56fda01ecf8b38ef5f9a1fd3552f025972fbcd (patch) | |
| tree | 5c8266aa94cc1097b18535eda4ef9eb40ea21249 /printing/pptactic.ml | |
| parent | e9abd74adc486c1c1793754fdf83a33fe7b1b34c (diff) | |
Protect printing of ltac's "context [...]" from possible collision
with user-level notations by inserting spaces.
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 4777585516..a31b8b4dae 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -194,7 +194,7 @@ module Make | ConstrContext ((_,id),c) -> hov 0 (keyword "context" ++ spc () ++ pr_id id ++ spc () ++ - str "[" ++ prlc c ++ str "]") + str "[ " ++ prlc c ++ str " ]") | ConstrTypeOf c -> hov 1 (keyword "type of" ++ spc() ++ prc c) | ConstrTerm c when test c -> |