2008-09-10 21:07:07 -04:00
|
|
|
! Copyright (C) 2003, 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: kernel sequences namespaces ;
|
|
|
|
|
IN: make
|
|
|
|
|
|
|
|
|
|
SYMBOL: building
|
|
|
|
|
|
|
|
|
|
: make ( quot exemplar -- seq )
|
|
|
|
|
[
|
|
|
|
|
[
|
2009-08-02 10:16:21 -04:00
|
|
|
100 swap new-resizable [
|
2008-09-10 21:07:07 -04:00
|
|
|
building set call
|
|
|
|
|
] keep
|
|
|
|
|
] keep like
|
|
|
|
|
] with-scope ; inline
|
|
|
|
|
|
|
|
|
|
: , ( elt -- ) building get push ;
|
|
|
|
|
|
|
|
|
|
: % ( seq -- ) building get push-all ;
|
