fix: sexp parser

acorrenson · Oct 31, 2021 · b65f999 · b65f999
1 parent cbd2085
commit b65f999
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/utils/sexp.ml b/src/utils/sexp.ml
@@ -22,15 +22,15 @@ let num =
   let num = String.of_seq chars |> int_of_string in 
   Int num
 
-let atom = ident <|> num <|> operator <?> "atom"
+let atom = token (ident <|> num <|> operator) <?> "atom"
 
 let parens p = surround (token (char '(')) (token (char ')')) p <?> "parentheses"
 
 let sexp =
   let call sexp = let+ vals = many sexp in Cons vals in
-  fix (fun sexp -> parens (call sexp) <|> atom <?> "fix") <?> "sexp"
+  fix (fun sexp -> (parens (call sexp) <|> atom) <?> "fix") <?> "sexp"
 
-let parser = many sexp <* eof
+let parser = many sexp
 
 let of_string s = parse_string parser s