diff options
Diffstat (limited to 'parsing/g_natsyntax.ml')
-rw-r--r-- | parsing/g_natsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_natsyntax.ml b/parsing/g_natsyntax.ml index 6b67c1c0a..9a97f4b06 100644 --- a/parsing/g_natsyntax.ml +++ b/parsing/g_natsyntax.ml @@ -84,7 +84,7 @@ let replace_S p = (* Prints not p, but the SUCCESSOR of p !!!!! *) let nat_printer std_pr p = match (int_of_nat p) with - | Some i -> [< 'sTR (string_of_int i) >] + | Some i -> (str (string_of_int i)) | None -> std_pr (replace_S p) let _ = Esyntax.Ppprim.add ("nat_printer", nat_printer) |