Clean up ?at

db4
Slava Pestov 2009-03-09 17:47:50 -05:00
parent 9a531a32ea
commit 07cb959df4
1 changed files with 1 additions and 1 deletions

View File

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