practice new grammar just added

fanhqme · Jan 9, 2017 · d757e50 · d757e50
1 parent eb60238
commit d757e50
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/str.u b/str.u
@@ -4,13 +4,11 @@
 (def digitFromInt (+ '0'))
 
 (let signedParse (\f s
-	(s (f s) (\h r
-		((= h '-') (neg (f r))
-			((= h '+') (f r)
-				(f s)
-			)
-		)
-	))
+	(s (f s) (\h r (run
+		(((= h '-') (neg (f r))))
+		(((= h '+') (f r)))
+		(f s)
+	)))
 ))
 (let signedShow (\f s
 	((< s 0) (cons '-' (f (neg s))) (f s))