diff options
| author | Eduardo Julian | 2018-07-03 22:59:30 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-03 22:59:30 -0400 |
| commit | c98640ca0d39ed2934dbf6d2bb2d5b9987441395 (patch) | |
| tree | 7b499891bb8125792e3482254e234bbc5dc433f0 /luxc | |
| parent | 49d59ddc16a588115e02303fd325e46d6c1c87ac (diff) | |
- Improved syntax for numeric literals by allowing arbitrary zeroes (0) at the front of numbers.
Diffstat (limited to 'luxc')
| -rw-r--r-- | luxc/src/lux/lexer.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/luxc/src/lux/lexer.clj b/luxc/src/lux/lexer.clj index 7bd329766..84c925cbc 100644 --- a/luxc/src/lux/lexer.clj +++ b/luxc/src/lux/lexer.clj @@ -138,10 +138,10 @@ (|do [[meta _ token] (&reader/read-regex <regex>)] (return (&/T [meta (<tag> (string/replace token #"_" ""))])))) - lex-nat $Nat #"^\+(0|[1-9][0-9_]*)" - lex-int $Int #"^-?(0|[1-9][0-9_]*)" - lex-deg $Deg #"^(\.[0-9_]+)" - lex-frac $Frac #"^-?(0\.[0-9_]+|[1-9][0-9_]*\.[0-9_]+)(e-?[1-9][0-9_]*)?" + lex-nat $Nat #"^\+[0-9][0-9_]*" + lex-int $Int #"^-?[0-9][0-9_]*" + lex-deg $Deg #"^\.[0-9][0-9_]+" + lex-frac $Frac #"^-?[0-9][0-9_]*\.[0-9_]+((e|E)(-|\+)?[0-9][0-9_]*)?" ) (def +same-module-mark+ (str &/+name-separator+ &/+name-separator+)) |