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

cursors: -with- filter (e.g. foo H{ ... } [ ... ] assoc- -with- -each)

release
Joe Groff 2010-03-24 17:02:10 -07:00
parent c17eb80b90
commit c70090bb83
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/cursors/cursors.factor
View File

@ -517,3 +517,17 @@ MACRO: -ncontainer- ( n -- )
swap [ ncontainer- ] dip -map-as ; inline swap [ ncontainer- ] dip -map-as ; inline
: nmap ( seqs... quot n -- newseq ) : nmap ( seqs... quot n -- newseq )
dup [ npick ] curry [ dip swap ] curry dip nmap-as ; inline dup [ npick ] curry [ dip swap ] curry dip nmap-as ; inline
!
! utilities
!
: -with- ( invariant begin end quot -- begin end quot' )
[ rot ] dip '[ [ _ ] dip @ ] ; inline
: -2with- ( invariant invariant begin end quot -- begin end quot' )
-with- -with- ; inline
MACRO: -nwith- ( n -- )
[ -with- ] n*quot ;