+ Added floats.

+ Added def for constants.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/lang/parser.clj b/src/lang/parser.clj
index 53f60941d..b3cb5cbc0 100644
--- a/src/lang/parser.clj
+++ b/src/lang/parser.clj
@@ -22,6 +22,10 @@
   [::&lexer/int ?int]
   (return [::int (Long/parseLong ?int)]))
 
+(defparser ^:private parse-float
+  [::&lexer/float ?float]
+  (return [::float (Double/parseDouble ?float)]))
+
 (defparser ^:private parse-ident
   [::&lexer/ident ?ident]
   (return [::ident ?ident]))
@@ -82,6 +86,7 @@
 
 (def ^:private parse-form
   (try-all-m [parse-int
+              parse-float
               parse-ident
               parse-tuple
               parse-def