diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-17 18:09:28 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-17 18:09:28 +0200 |
commit | 1929b52db6bc282c60a1a3aa39ba87307c68bf78 (patch) | |
tree | 57a6c7632dec646afb3ab6a1a9519eb313e805ac /interp/notation.ml | |
parent | 05ad4f49ac2203dd64dfec79a1fc62ee52115724 (diff) | |
parent | 34b1813b5adf1df556e0d8a05bde0ec58152f610 (diff) |
Merge branch 'v8.6'
Diffstat (limited to 'interp/notation.ml')
-rw-r--r-- | interp/notation.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 1bd1bc7d5..948d624a2 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -1012,6 +1012,9 @@ let find_notation_parsing_rules ntn = try pi3 (String.Map.find ntn !notation_rules) with Not_found -> anomaly (str "No parsing rule found for " ++ str ntn) +let get_defined_notations () = + String.Set.elements @@ String.Map.domain !notation_rules + let add_notation_extra_printing_rule ntn k v = try notation_rules := |