diff options
-rw-r--r-- | mu.arc | 2 | ||||
-rw-r--r-- | mu.arc.t | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc index 455a3cf1..1eeeeeff 100644 --- a/mu.arc +++ b/mu.arc @@ -1372,7 +1372,7 @@ (= function*.name (convert-names:convert-labels:convert-braces:tokenize-args:insert-code body name)))) (def tokenize-arg (arg) - (if (is arg '<-) + (if (in arg '<- '_) arg (map [map [fromstring _ (read)] _] (map [tokens _ #\:] diff --git a/mu.arc.t b/mu.arc.t index da30bd21..a9b67597 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -3311,6 +3311,8 @@ (tokenize-arg 'a:b/1:d)) (assert:iso '<- (tokenize-arg '<-)) +(assert:iso '_ + (tokenize-arg '_)) ; support labels (assert:iso '((((default-scope scope-address)) <- ((new)) ((scope literal)) ((30 literal))) |