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

Fix Atom.is_valid

This commit is contained in:
Jeremie Dimino 2018-03-17 13:45:08 +00:00 committed by Jérémie Dimino
parent e3f34fab71
commit da7874ebdf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/usexp/usexp.ml
View File

@ -17,7 +17,7 @@ module Atom = struct
let is_valid str = let is_valid str =
let len = String.length str in let len = String.length str in
len = 0 || len > 0 &&
let rec loop ix = let rec loop ix =
match str.[ix] with match str.[ix] with
| '"' | '(' | ')' | ';' | '\\' -> true | '"' | '(' | ')' | ';' | '\\' -> true