From 68d7e910f280c9a55301df54144d06c3079b8c06 Mon Sep 17 00:00:00 2001
From: Dov Murik <dov.murik@gmail.com>
Date: Wed, 30 Sep 2020 20:59:05 +0300
Subject: [PATCH] tcl: Fix (keyword) of keywords

---
 impls/tcl/core.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/impls/tcl/core.tcl b/impls/tcl/core.tcl
index 248bb5f8..2485c87d 100644
--- a/impls/tcl/core.tcl
+++ b/impls/tcl/core.tcl
@@ -33,7 +33,11 @@ proc mal_string_q {a} {
 }
 
 proc mal_keyword {a} {
-    keyword_new [obj_val [lindex $a 0]]
+    lassign $a a0
+    if {[keyword_q $a0]} {
+        return $a0
+    }
+    keyword_new [obj_val $a0]
 }
 
 proc mal_keyword_q {a} {