mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 01:30:26 +03:00
ps: allow keyword argument for keyword core function
This commit is contained in:
parent
f47ef5eddd
commit
1bbf5a027d
@ -229,10 +229,12 @@ end } def
|
||||
% Keywords
|
||||
|
||||
/_keyword { 1 dict begin
|
||||
dup _keyword? not {
|
||||
/str exch def
|
||||
str length 1 add string % str2
|
||||
dup 1 str putinterval
|
||||
dup 0 127 put % TODO: something like (\x029e) would be better
|
||||
} if
|
||||
end } def
|
||||
|
||||
/_keyword? {
|
||||
|
Loading…
Reference in New Issue
Block a user