diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-03-26 11:17:17 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-03-26 11:17:17 +0000 |
| commit | 6bfcb1da5b8683fe61e1f4ac4f1c56d56823c94a (patch) | |
| tree | 6520ffaaa1a9de547cc725e311f9aaeb8547aaa0 /camlp4/Camlp4 | |
| parent | 422b75d398cbb0f10bd159828580aaf3f428db6f (diff) | |
Support for quoted strings.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/extension_points@13450 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/Camlp4')
| -rw-r--r-- | camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml b/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml index 2b9a47b18..b0f11485a 100644 --- a/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml +++ b/camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml @@ -582,7 +582,7 @@ module Make (Ast : Sig.Camlp4Ast) = struct let is_closed = if wildcards = [] then Closed else Open in mkpat loc (Ppat_record (List.map mklabpat ps, is_closed)) | PaStr loc s -> - mkpat loc (Ppat_constant (Const_string (string_of_string_token loc s))) + mkpat loc (Ppat_constant (Const_string (string_of_string_token loc s) None)) | <:patt@loc< ($p1$, $p2$) >> -> mkpat loc (Ppat_tuple (List.map patt (list_of_patt p1 (list_of_patt p2 [])))) @@ -861,7 +861,7 @@ value varify_constructors var_names = (Pexp_apply (mkexp loc (Pexp_ident (array_function loc "String" "get"))) [("", expr e1); ("", expr e2)]) | ExStr loc s -> - mkexp loc (Pexp_constant (Const_string (string_of_string_token loc s))) + mkexp loc (Pexp_constant (Const_string (string_of_string_token loc s) None)) | ExTry loc e a -> mkexp loc (Pexp_try (expr e) (match_case a [])) | <:expr@loc< ($e1$, $e2$) >> -> mkexp loc (Pexp_tuple (List.map expr (list_of_expr e1 (list_of_expr e2 [])))) |