parent
f39b302a8d
commit
5a5ba64503
|
@ -21,8 +21,8 @@ module Atom = struct
|
||||||
let rec loop ix =
|
let rec loop ix =
|
||||||
match str.[ix] with
|
match str.[ix] with
|
||||||
| '"' | '(' | ')' | ';' | '\\' -> true
|
| '"' | '(' | ')' | ';' | '\\' -> true
|
||||||
| '|' -> ix > 0 && let next = ix - 1 in Char.equal str.[next] '#' || loop next
|
| '|' -> ix > 0 && let next = ix - 1 in str.[next] = '#' || loop next
|
||||||
| '#' -> ix > 0 && let next = ix - 1 in Char.equal str.[next] '|' || loop next
|
| '#' -> ix > 0 && let next = ix - 1 in str.[next] = '|' || loop next
|
||||||
| '\000' .. '\032' | '\127' .. '\255' -> true
|
| '\000' .. '\032' | '\127' .. '\255' -> true
|
||||||
| _ -> ix > 0 && loop (ix - 1)
|
| _ -> ix > 0 && loop (ix - 1)
|
||||||
in
|
in
|
||||||
|
|
Loading…
Reference in New Issue