mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 17:50:24 +03:00
tcl: Fix (keyword) of keywords
This commit is contained in:
parent
b9dd70c442
commit
68d7e910f2
@ -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} {
|
||||
|
Loading…
Reference in New Issue
Block a user