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

assocs.extras: adding if-assoc-empty.

db4
John Benediktsson 2012-10-04 04:08:44 -07:00
parent fc5f9451e8
commit 19ac40f0d9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/assocs/extras/extras.factor
View File

@ -37,4 +37,5 @@ IN: assocs.extras
: sum-values ( assoc -- n ) 0 [ + ] reduce-values ; inline : sum-values ( assoc -- n ) 0 [ + ] reduce-values ; inline
: if-assoc-empty ( ..a assoc quot1: ( ..a -- ..b ) quot2: ( ..a assoc -- ..b ) -- ..b )
[ dup assoc-empty? ] [ [ drop ] prepose ] [ ] tri* if ; inline