steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add ?at, simplify if-at

db4
Doug Coleman 2008-08-17 21:27:35 -05:00
parent c56a769fef
commit ab56eb0e48
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/assocs/lib/lib.factor
View File

@ -38,8 +38,11 @@ IN: assocs.lib
swap [ change-at ] 2curry assoc-each swap [ change-at ] 2curry assoc-each
] keep ; inline ] keep ; inline
: ?at ( obj1 assoc -- obj1/obj2 )
dupd at* [ nip ] [ drop ] if ;
: if-at ( obj assoc quot1 quot2 -- ) : if-at ( obj assoc quot1 quot2 -- )
[ dupd at* [ not -rot ? ] keep ] 2dip if ; inline [ ?at dup ] 2dip if ; inline
: when-at ( obj assoc quot -- ) [ ] if-at ; inline : when-at ( obj assoc quot -- ) [ ] if-at ; inline