Update usexp
This commit is contained in:
parent
5651eb80b5
commit
321543a56b
|
@ -16,11 +16,13 @@ module Atom = struct
|
||||||
done;
|
done;
|
||||||
!n
|
!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 escaped_internal s ~with_double_quotes =
|
||||||
let n = escaped_length s in
|
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 s' = Bytes.create (n + if with_double_quotes then 2 else 0) in
|
||||||
let n = ref 0 in
|
let n = ref 0 in
|
||||||
if with_double_quotes then begin
|
if with_double_quotes then begin
|
||||||
|
|
Loading…
Reference in New Issue