diff options
Diffstat (limited to 'camlp4/ocaml_src/lib/token.ml')
| -rw-r--r-- | camlp4/ocaml_src/lib/token.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/camlp4/ocaml_src/lib/token.ml b/camlp4/ocaml_src/lib/token.ml index 274a4751e..99bbd2f21 100644 --- a/camlp4/ocaml_src/lib/token.ml +++ b/camlp4/ocaml_src/lib/token.ml @@ -120,6 +120,8 @@ let rec backslash s i = | 't' -> '\t', i + 1 | 'b' -> '\b', i + 1 | '\\' -> '\\', i + 1 + | '\"' -> '\"', i + 1 + | '\'' -> '\'', i + 1 | '0'..'9' as c -> backslash1 (valch c) s (i + 1) | _ -> raise Not_found and backslash1 cod s i = @@ -170,7 +172,7 @@ let eval_string s = if s.[i] = '\\' then let i = i + 1 in if i = String.length s then failwith "invalid string token" - else if s.[i] = '"' then store len '"', i + 1 + else if s.[i] = '\"' then store len '\"', i + 1 else match s.[i] with '\010' -> len, skip_indent s (i + 1) |