S-expressions: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,065: / Line 3,065: @@
     go tokens = until finished parseToken ([], tokens)
-    finished (_, rest) = null rest || ")" == head rest
+    finished (_, []) = True
+    finished (_, token : _) = ")" == token
     parseToken (trees, []) = (trees, [])