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

use iota in a couple of places

Doug Coleman 2009-08-22 20:56:16 -04:00
parent 3923e321a9
commit 1f498ee6a5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -919,7 +919,7 @@ PRIVATE>
<PRIVATE
: generic-flip ( matrix -- newmatrix )
[ dup first length [ length min ] reduce ] keep
[ dup first length [ length min ] reduce iota ] keep
[ [ nth-unsafe ] with { } map-as ] curry { } map-as ; inline
USE: arrays
@ -929,7 +929,7 @@ USE: arrays
: array-flip ( matrix -- newmatrix )
{ array } declare
[ dup first array-length [ array-length min ] reduce ] keep
[ dup first array-length [ array-length min ] reduce iota ] keep
[ [ { array } declare array-nth ] with { } map-as ] curry { } map-as ;
PRIVATE>