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

sequences: change map-integers to require fixnum length.

John Benediktsson 2012-10-22 10:31:51 -07:00
parent a127cdb38c
commit 0f71db0c97
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/sequences/sequences.factor
View File

@ -440,7 +440,8 @@ PRIVATE>
swapd each ; inline
: map-integers ( ... len quot: ( ... i -- ... elt ) exemplar -- ... newseq )
[ over ] dip [ [ collect ] keep ] new-like ; inline
[ integer>fixnum-strict ] 2dip [ over ] dip
[ [ collect ] keep ] new-like ; inline
: map-as ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq )
[ (each) ] dip map-integers ; inline