diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2000-02-14 15:00:47 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2000-02-14 15:00:47 +0000 |
| commit | bce65fcf54666029596df1860faee5c4b08ff21c (patch) | |
| tree | 2d504f011734d1a31069698a459697ae536df583 | |
| parent | 3b460278e0f93699a8bee986047e274471c9499e (diff) | |
Manque escape sur une chaîne et un retour charriot dans un format.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2816 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | parsing/printast.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/printast.ml b/parsing/printast.ml index d11024908..2f31f4342 100644 --- a/parsing/printast.ml +++ b/parsing/printast.ml @@ -38,7 +38,8 @@ let fmt_constant f x = match x with | Const_int (i) -> Format.fprintf f "Const_int %d" i; | Const_char (c) -> Format.fprintf f "Const_char %02x" (Char.code c); - | Const_string (s) -> Format.fprintf f "Const_string \"%s\"" s; + | Const_string (s) -> + Format.fprintf f "Const_string \"%s\"" (String.escaped s); | Const_float (s) -> Format.fprintf f "Const_float %s" s; ;; @@ -88,7 +89,7 @@ let option i f x = f (i+1) x; ;; -let longident i li = line i "%a" fmt_longident li;; +let longident i li = line i "%a\n" fmt_longident li;; let string i s = line i "\"%s\"\n" s;; let bool i x = line i "%s\n" (string_of_bool x);; let label i x = line i "label=\"%s\"\n" x;; |