core/make/make.factor

   1 ! Copyright (C) 2003, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel sequences namespaces ;
   4 IN: make
   5
   6 SYMBOL: building
   7
   8 : make ( quot exemplar -- seq )
   9     [
  10         [
  11             1024 swap new-resizable [
  12                 building set call
  13             ] keep
  14         ] keep like
  15     ] with-scope ; inline
  16
  17 : , ( elt -- ) building get push ;
  18
  19 : % ( seq -- ) building get push-all ;