diff options
Diffstat (limited to 'parsing/printast.ml')
| -rw-r--r-- | parsing/printast.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/printast.ml b/parsing/printast.ml index b9d9f0efce..c65a660e99 100644 --- a/parsing/printast.ml +++ b/parsing/printast.ml @@ -322,6 +322,8 @@ and expression i ppf x = | Pexp_generic cases -> line i ppf "Pexp_generic"; list i generic_case ppf cases + | Pexp_regexp s -> + line i ppf "Pexp_regexp %S" s and generic_case i ppf (po, e) = line i ppf "<gcase>\n"; @@ -457,7 +459,7 @@ and class_structure i ppf (p, l) = and class_field i ppf x = match x with | Pcf_inher (ce, so) -> - printf "Pcf_inher\n"; + line i ppf "Pcf_inher\n"; class_expr (i+1) ppf ce; option (i+1) string ppf so; | Pcf_val (s, mf, e, loc) -> |