kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-17 17:50:24 +03:00
Code Issues Projects Releases Wiki Activity

tcl: Fix (keyword) of keywords

Browse Source
This commit is contained in:
Dov Murik 2020-09-30 20:59:05 +03:00
parent b9dd70c442
commit 68d7e910f2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
impls/tcl/core.tcl
View File

@ -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} {