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

core: keep nip cleanup.

modern-harvey2
Doug Coleman 2017-09-28 22:20:32 -05:00
parent 5582ea1b02
commit 577d4618ca
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/hash-sets/hash-sets.factor
View File

@ -125,8 +125,8 @@ M: hash-set ?adjoin
M: hash-set members M: hash-set members
[ array>> 0 swap ] [ cardinality f <array> ] bi [ [ array>> 0 swap ] [ cardinality f <array> ] bi [
[ [ over ] dip set-nth-unsafe 1 + ] curry each-member [ [ over ] dip set-nth-unsafe 1 + ] curry each-member drop
] keep nip ; ] keep ;
M: hash-set clone M: hash-set clone
(clone) [ clone ] change-array ; inline (clone) [ clone ] change-array ; inline

4
core/hashtables/hashtables.factor
View File

@ -154,8 +154,8 @@ M: hashtable set-at
: collect-pairs ( hash quot: ( key value -- elt ) -- seq ) : collect-pairs ( hash quot: ( key value -- elt ) -- seq )
[ [ array>> 0 swap ] [ assoc-size f <array> ] bi ] dip swap [ [ [ array>> 0 swap ] [ assoc-size f <array> ] bi ] dip swap [
[ [ over ] dip set-nth-unsafe 1 + ] curry compose each-pair [ [ over ] dip set-nth-unsafe 1 + ] curry compose each-pair drop
] keep nip ; inline ] keep ; inline
PRIVATE> PRIVATE>