scheme: allow keyword argument for keyword built-in

kanaka · Jul 17, 2019 · 643ee7d · 643ee7d
1 parent 3b797cd
commit 643ee7d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/scheme/lib/core.sld b/scheme/lib/core.sld
@@ -249,7 +249,9 @@
     (symbol? . ,(lambda (x) (coerce (mal-instance-of? x 'symbol))))
     (symbol . ,(lambda (x) (mal-symbol (string->symbol (mal-value x)))))
     (keyword? . ,(lambda (x) (coerce (mal-instance-of? x 'keyword))))
-    (keyword . ,(lambda (x) (mal-keyword (string->symbol (mal-value x)))))
+    (keyword . ,(lambda (x) (if (mal-instance-of? x 'keyword)
+                                x
+                                (mal-keyword (string->symbol (mal-value x))))))
     (vector? . ,(lambda (x) (coerce (mal-instance-of? x 'vector))))
     (vector . ,(lambda args (mal-vector (list->vector args))))
     (map? . ,(lambda (x) (coerce (mal-instance-of? x 'map))))