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

assocs: Add ?delete-at.

freebsd-work
Doug Coleman 2019-02-03 14:51:59 -05:00
parent 447b46db97
commit 591a468800
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/assocs/assocs.factor
View File

@ -131,6 +131,9 @@ M: assoc values [ nip ] { } assoc>map ;
: delete-at* ( key assoc -- old ? ) : delete-at* ( key assoc -- old ? )
[ at* ] 2keep delete-at ; [ at* ] 2keep delete-at ;
: ?delete-at ( key assoc -- old ? )
[ ?at ] 2keep delete-at ;
: rename-at ( newkey key assoc -- ) : rename-at ( newkey key assoc -- )
[ delete-at* ] keep [ set-at ] with-assoc [ 2drop ] if ; [ delete-at* ] keep [ set-at ] with-assoc [ 2drop ] if ;