diff options
Diffstat (limited to 'lux-bootstrapper')
| -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 |