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

Revert "sequences: change map-integers to require fixnum length." 

This reverts commit 0f71db0c97.
db4
John Benediktsson 2012-10-22 11:13:56 -07:00
parent a67ab35ec5
commit 09751634af
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/sequences/sequences.factor
View File

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