From 0bccd6a2313dc5eadb635d1fbf02dbb0a5ff2cfe Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 4 Dec 2014 00:28:48 -0400
Subject: Now compiles booleans and ifs.

---
 src/lang/parser.clj | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/lang/parser.clj')

diff --git a/src/lang/parser.clj b/src/lang/parser.clj
index d1bd3dbd8..f09d87145 100644
--- a/src/lang/parser.clj
+++ b/src/lang/parser.clj
@@ -19,6 +19,10 @@
          (fail* (str "Unmatched token: " token#))))))
 
 ;; [Parsers]
+(defparser ^:private parse-boolean
+  [::&lexer/boolean ?boolean]
+  (return [::boolean (Boolean/parseBoolean ?boolean)]))
+
 (defparser ^:private parse-int
   [::&lexer/int ?int]
   (return [::int (Long/parseLong ?int)]))
@@ -162,7 +166,8 @@
     (return [::fn-call =f =args])))
 
 (def ^:private parse-form
-  (try-all-m [parse-int
+  (try-all-m [parse-boolean
+              parse-int
               parse-float
               parse-string
               parse-ident
-- 
cgit v1.2.3