about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-12-13 23:26:15 -0800
committerKartik K. Agaram <vc@akkartik.com>2014-12-13 23:26:15 -0800
commit431f8bcd3db4fdc3ce30555403cca1900352d0a1 (patch)
tree3e4fb107fc1ecde5b270a8fbd05ce9f7b3846681
parenta4929041e6ca829e517e29e34b8f0b49bddd5128 (diff)
downloadmu-431f8bcd3db4fdc3ce30555403cca1900352d0a1.tar.gz
415
-rw-r--r--mu.arc2
-rw-r--r--mu.arc.t2
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)))