diff options
| author | Hugo Herbelin | 2019-10-18 21:27:48 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-10-18 21:27:48 +0200 |
| commit | 54689c1c1e1333dd1bf63c619481c2ec99a5762e (patch) | |
| tree | 95798955f8638ad3f2067f7fd27426c31036124c | |
| parent | c5f2b14020ea1fb2b11321f1daa00abe8dec3477 (diff) | |
| parent | a7b406bccfd51d7afee1f26ecfe38002be3b76f2 (diff) | |
Merge PR #10914: Fix Locate printing regression
Reviewed-by: herbelin
| -rw-r--r-- | interp/notation.ml | 2 | ||||
| -rw-r--r-- | test-suite/output/locate.out | 3 | ||||
| -rw-r--r-- | test-suite/output/locate.v | 3 |
3 files changed, 7 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index ea2173860d..70d3e4175e 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -1836,7 +1836,7 @@ let locate_notation prglob ntn scope = str "Notation" ++ fnl () ++ prlist_with_sep fnl (fun (ntn,l) -> let scope = find_default ntn scopes in - prlist + prlist_with_sep fnl (fun (sc,r,(_,df)) -> hov 0 ( pr_notation_info prglob df r ++ diff --git a/test-suite/output/locate.out b/test-suite/output/locate.out new file mode 100644 index 0000000000..473db2d312 --- /dev/null +++ b/test-suite/output/locate.out @@ -0,0 +1,3 @@ +Notation +"b1 && b2" := if b1 then b2 else false (default interpretation) +"x && y" := andb x y : bool_scope diff --git a/test-suite/output/locate.v b/test-suite/output/locate.v new file mode 100644 index 0000000000..af8b0ee193 --- /dev/null +++ b/test-suite/output/locate.v @@ -0,0 +1,3 @@ +Set Printing Width 400. +Notation "b1 && b2" := (if b1 then b2 else false). +Locate "&&". |