mirror of
https://github.com/kanaka/mal.git
synced 2024-10-26 22:28:26 +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} {
|
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} {
|
proc mal_keyword_q {a} {
|
||||||
|
Loading…
Reference in New Issue
Block a user