]> gitweb.factorcode.org Git - factor.git/commitdiff
sequences.extra: >resizable can't be inline for some reason...
authorJohn Benediktsson <mrjbq7@gmail.com>
Thu, 30 May 2013 22:01:34 +0000 (15:01 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Thu, 30 May 2013 22:01:34 +0000 (15:01 -0700)
extra/sequences/extras/extras.factor

index 6feef5548acd3d035667f0836add2c168cef2213..c58b2b93dfa4da5fd2d93430c8b2dd08d8d58609 100644 (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 { } ] [