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

cursors: push the -out- part from -map into -map-

release
Joe Groff 2010-03-24 18:16:22 -07:00
parent e0358219ad
commit 96d2b44f3e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/cursors/cursors.factor
View File

@ -305,10 +305,10 @@ M: map-cursor set-cursor-value-unsafe to>> set-cursor-value-unsafe ; inline
M: map-cursor set-cursor-value to>> set-cursor-value ; inline
: -map- ( begin end quot to -- begin' end' quot' )
swap [ '[ _ <map-cursor> ] bi@ ] dip '[ from>> @ ] ; inline
swap [ '[ _ <map-cursor> ] bi@ ] dip '[ from>> @ ] -out- ; inline
: -map ( begin end quot to -- begin' end' quot' )
-map- -out ; inline
-map- -each ; inline
!
! pusher cursor