diff options
| author | Emilio Jesus Gallego Arias | 2019-12-12 13:27:18 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-12-12 13:27:18 +0100 |
| commit | 53459444eb4f6be0c57254cd8ea6272279a410fc (patch) | |
| tree | 78a3e2784ca73ff78c3603a5154e70e0f2a7a407 /interp/notation.ml | |
| parent | 4a7a5c36802701d0e1b47956bb14cfc9cab99baa (diff) | |
| parent | 6bff5ed8ef6ef6148e035f80e26e60d050e79c43 (diff) | |
Merge PR #11276: Fixing #10750: "Print Visibility" raises Not_found on only-printing notations
Ack-by: cpitclaudel
Reviewed-by: ejgallego
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index efb826a76e..5dc1658824 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -1872,6 +1872,7 @@ let collect_notations stack = | SingleNotation ntn -> if List.mem_f notation_eq ntn knownntn then (all,knownntn) else + try let { not_interp = (_, r); not_location = (_, df) } = NotationMap.find ntn (find_scope default_scope).notations in let all' = match all with @@ -1879,7 +1880,8 @@ let collect_notations stack = (s,(df,r)::lonelyntn)::rest | _ -> (default_scope,[df,r])::all in - (all',ntn::knownntn)) + (all',ntn::knownntn) + with Not_found -> (* e.g. if only printing *) (all,knownntn)) ([],[]) stack) let pr_visible_in_scope prglob (scope,ntns) = |