sequences: change map-integers to require fixnum length.

db4
John Benediktsson 2012-10-22 10:31:51 -07:00
parent 4c4d186ae4
commit a67ab35ec5
1 changed files with 2 additions and 1 deletions

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