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

Fix 4.02.3 compat in usexp 

Do not use Char.equal
This commit is contained in:
Rudi Grinberg 2018-03-17 11:32:23 +08:00 committed by Jérémie Dimino
parent f39b302a8d
commit 5a5ba64503
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/usexp/usexp.ml
View File

@ -21,8 +21,8 @@ module Atom = struct
let rec loop ix =
match str.[ix] with
| '"' | '(' | ')' | ';' | '\\' -> true
| '|' -> ix > 0 && let next = ix - 1 in Char.equal 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
| '#' -> ix > 0 && let next = ix - 1 in str.[next] = '|' || loop next
| '\000' .. '\032' | '\127' .. '\255' -> true
| _ -> ix > 0 && loop (ix - 1)
in