diff options
| -rw-r--r-- | translate/ppconstrnew.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 51b2a69535..3b4f3296cb 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -118,7 +118,7 @@ let pr_or_var pr = function | Genarg.ArgArg x -> pr x | Genarg.ArgVar (loc,s) -> pr_with_comments loc (pr_id s) -let las = 12 +let las = lapp let rec pr_patt inh p = let (strm,prec) = match p with |