From da7874ebdfd769bf896d7915aa3716c9fdbff2df Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jeremie@dimino.org>
Date: Sat, 17 Mar 2018 13:45:08 +0000
Subject: [PATCH] Fix Atom.is_valid

---
 src/usexp/usexp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/usexp/usexp.ml b/src/usexp/usexp.ml
index b6b07c91..b106c29c 100644
--- a/src/usexp/usexp.ml
+++ b/src/usexp/usexp.ml
@@ -17,7 +17,7 @@ module Atom = struct
 
  let is_valid str =
    let len = String.length str in
-   len = 0 ||
+   len > 0 &&
    let rec loop ix =
      match str.[ix] with
      | '"' | '(' | ')' | ';' | '\\' -> true