From 8e4b93bfc90ca81d615bf9dd5af43f29fdd0f5ae Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 13 Mar 2019 21:14:22 -0400 Subject: Replaced the digit separator in numbers from "_" to ",". --- luxc/src/lux/lexer.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'luxc/src') diff --git a/luxc/src/lux/lexer.clj b/luxc/src/lux/lexer.clj index 8ed75b940..962e1e9bd 100644 --- a/luxc/src/lux/lexer.clj +++ b/luxc/src/lux/lexer.clj @@ -57,12 +57,12 @@ (do-template [ ] (def (|do [[meta _ token] (&reader/read-regex )] - (return (&/T [meta ( (string/replace token #"_" ""))])))) + (return (&/T [meta ( (string/replace token #"," ""))])))) - lex-nat $Nat #"^[0-9][0-9_]*" - lex-int $Int #"^(-|\+)[0-9][0-9_]*" - lex-rev $Rev #"^\.[0-9][0-9_]*" - lex-frac $Frac #"^(-|\+)[0-9][0-9_]*\.[0-9][0-9_]*((e|E)(-|\+)[0-9][0-9_]*)?" + lex-nat $Nat #"^[0-9][0-9,]*" + lex-int $Int #"^(-|\+)[0-9][0-9,]*" + lex-rev $Rev #"^\.[0-9][0-9,]*" + lex-frac $Frac #"^(-|\+)[0-9][0-9,]*\.[0-9][0-9,]*((e|E)(-|\+)[0-9][0-9,]*)?" ) (def +same-module-mark+ (str &/+name-separator+ &/+name-separator+)) -- cgit v1.2.3