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

sequences.extra: >resizable can't be inline for some reason...

db4
John Benediktsson 2013-05-30 15:01:34 -07:00
parent f628e2a7ad
commit 5e25b8b49f
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/sequences/extras/extras.factor
View File

@ -174,8 +174,8 @@ PRIVATE>
: map-concat-as ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq )
[ appender-for [ each ] dip ] keep like ; inline
: >resizable ( seq -- accum )
[ length ] keep [ new-resizable ] [ over push-all ] bi ; inline
: >resizable ( seq -- accum ) ! fixes map-concat "cannot apply call to run-time..."
[ length ] keep [ new-resizable ] [ over push-all ] bi ;
: map-concat ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq )
over empty? [ 2drop { } ] [