diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-12-13 23:26:15 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-12-13 23:26:15 -0800 |
commit | 431f8bcd3db4fdc3ce30555403cca1900352d0a1 (patch) | |
tree | 3e4fb107fc1ecde5b270a8fbd05ce9f7b3846681 | |
parent | a4929041e6ca829e517e29e34b8f0b49bddd5128 (diff) | |
download | mu-431f8bcd3db4fdc3ce30555403cca1900352d0a1.tar.gz |
415
-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))) |