+ Added floats.

+ Added def for constants.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/lang/lexer.clj b/src/lang/lexer.clj
index a51330e09..927453aeb 100644
--- a/src/lang/lexer.clj
+++ b/src/lang/lexer.clj
@@ -50,6 +50,7 @@
     (exec [token (lex-regex <regex>)]
       (return [<tag> token])))
 
+  ^:private lex-float ::float  #"^(0|[1-9][0-9]*)\.[0-9]+"
   ^:private lex-int   ::int    #"^(0|[1-9][0-9]*)"
   ^:private lex-ident ::ident  +ident-re+)
 
@@ -96,7 +97,8 @@
 
 (def ^:private lex-form
   (exec [_ (try-m lex-white-space)
-         form (try-all-m [lex-int
+         form (try-all-m [lex-float
+                          lex-int
                           lex-ident
                           lex-tag
                           lex-list