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