From 26f11e9230ff4869c26900bf5ebd70c35099ff0f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jun=20FURUSE=20/=20=E5=8F=A4=E7=80=AC=20=E6=B7=B3?= Date: Wed, 5 Dec 2001 15:31:52 +0000 Subject: simplif. of coerce and essai of dyn pattern git-svn-id: http://caml.inria.fr/svn/ocaml/branches/dynamics@4115 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- parsing/printast.ml | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/parsing/printast.ml b/parsing/printast.ml index abc49d99bc..3473a1df4a 100644 --- a/parsing/printast.ml +++ b/parsing/printast.ml @@ -172,6 +172,12 @@ and pattern i ppf x = | Ppat_type li -> line i ppf "PPat_type"; longident i ppf li +(* GENERIC + | Ppat_dynamic (p, ct) -> + line i ppf "Ppat_dynamic"; + pattern i ppf p; + core_type i ppf ct; +/GENERIC *) and expression i ppf x = line i ppf "expression %a\n" fmt_location x.pexp_loc; @@ -275,11 +281,16 @@ and expression i ppf x = | Pexp_dynamic (e) -> line i ppf "Pexp_dynamic"; expression i ppf e; + | Pexp_coerce (e) -> + line i ppf "Pexp_coerce"; + expression i ppf e; +(* /DYN *) +(* GENERIC | Pexp_coerce (e, pexps) -> line i ppf "Pexp_coerce"; expression i ppf e; list i pattern_x_expression_case ppf pexps; -(* /DYN *) +/GENERIC *) and value_description i ppf x = line i ppf "value_description\n"; -- cgit v1.2.1