421

2 files changed, 12 insertions, 4 deletions

diff --git a/mu.arc b/mu.arc
index cdadc9f9..c441d2e5 100644
--- a/mu.arc
+++ b/mu.arc
@@ -1372,11 +1372,15 @@
     (= function*.name (convert-names:convert-labels:convert-braces:tokenize-args:insert-code body name))))
 
 (def tokenize-arg (arg)
+;?   (tr "tokenize-arg " arg)
   (if (in arg '<- '_)
-    arg
-    (map [map [fromstring _ (read)] _]
-         (map [tokens _ #\:]
-              (tokens string.arg #\/)))))
+        arg
+      (isa arg 'sym)
+        (map [map [fromstring _ (read)] _]
+             (map [tokens _ #\:]
+                  (tokens string.arg #\/)))
+      :else
+        arg))
 
 (def tokenize-args (instrs)
 ;?   (tr "tokenize-args " instrs)
diff --git a/mu.arc.t b/mu.arc.t
index 65f3a9a8..d51bdbe3 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -3303,6 +3303,10 @@
 (assert:iso '_
             (tokenize-arg '_))
 
+; idempotent
+(assert:iso (tokenize-arg:tokenize-arg 'a:b/c:d)
+            (tokenize-arg              'a:b/c:d))
+
 ; support labels
 (assert:iso '((((default-scope scope-address)) <- ((new)) ((scope literal)) ((30 literal)))
               foo)