diff options
Diffstat (limited to 'translate/ppvernacnew.ml')
| -rw-r--r-- | translate/ppvernacnew.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 161232a5f..49e455cbb 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -474,9 +474,12 @@ let rec pr_vernac = function (match opt with | None -> mt() | Some sc -> str" :" ++ spc() ++ str sc)) - | VernacSyntaxExtension (local,a,b) -> - str"Uninterpreted Notation" ++ spc() ++ pr_locality local ++ qs a ++ - (match b with | [] -> mt() | _ as l -> + | VernacSyntaxExtension (local,s,l,mv8) -> + let (s,l) = match mv8 with + None -> (s,l) + | Some ml -> ml in + str"Uninterpreted Notation" ++ spc() ++ pr_locality local ++ qs s ++ + (match l with | [] -> mt() | _ as l -> str"(" ++ prlist_with_sep sep_v2 pr_syntax_modifier l ++ str")") (* Gallina *) |