diff options
author | Eduardo Julian | 2021-02-25 01:50:24 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-02-25 01:50:24 -0400 |
commit | 47b320b854a6f28621c5d5d118cac31db27e7c50 (patch) | |
tree | 5cace9a14e0800987c220dff5e03a02913645c05 /lux-bootstrapper/src | |
parent | ae7fc0207c8d3281882261642f6a8e0579985aa0 (diff) |
Updates for Ruby compiler.
Diffstat (limited to 'lux-bootstrapper/src')
-rw-r--r-- | lux-bootstrapper/src/lux/analyser/parser.clj | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lux-bootstrapper/src/lux/analyser/parser.clj b/lux-bootstrapper/src/lux/analyser/parser.clj index 6a46bab3c..15224573c 100644 --- a/lux-bootstrapper/src/lux/analyser/parser.clj +++ b/lux-bootstrapper/src/lux/analyser/parser.clj @@ -40,12 +40,15 @@ (return (&/|list head)))) state*)))) +(def ^:private class-name-regex + #"^([a-zA-Z0-9_\.$]+)") + (def ^:private parse-name - (|do [[_ _ =name] (&reader/read-regex #"^([a-zA-Z0-9_\.]+)")] + (|do [[_ _ =name] (&reader/read-regex class-name-regex)] (return =name))) (def ^:private parse-name? - (|do [[_ _ =name] (&reader/read-regex? #"^([a-zA-Z0-9_\.]+)")] + (|do [[_ _ =name] (&reader/read-regex? class-name-regex)] (return =name))) (def ^:private parse-ident |