diff options
Diffstat (limited to 'src/lang/lexer.clj')
| -rw-r--r-- | src/lang/lexer.clj | 4 |
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 |