matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update usexp

This commit is contained in:
Jeremie Dimino 2018-01-19 22:41:30 +00:00
parent 5651eb80b5
commit 321543a56b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vendor/usexp/src/usexp.ml vendored
View File

@ -16,11 +16,13 @@ module Atom = struct
done;
!n
let must_escape s = escaped_length s > String.length s
let must_escape s =
let len = String.length s in
len = 0 || escaped_length s > len
let escaped_internal s ~with_double_quotes =
let n = escaped_length s in
if n = String.length s then s else begin
if n > 0 && n = String.length s then s else begin
let s' = Bytes.create (n + if with_double_quotes then 2 else 0) in
let n = ref 0 in
if with_double_quotes then begin