Clean up ?at
parent
9a531a32ea
commit
07cb959df4
|
@ -20,7 +20,7 @@ GENERIC: >alist ( assoc -- newassoc )
|
|||
M: assoc assoc-like drop ;
|
||||
|
||||
: ?at ( key assoc -- value/key ? )
|
||||
dupd at* [ [ nip ] [ drop ] if ] keep ; inline
|
||||
2dup at* [ 2nip t ] [ 2drop f ] if ; inline
|
||||
|
||||
<PRIVATE
|
||||
|
||||
|
|
Loading…
Reference in New Issue