factor/core/make/make.factor

! Copyright (C) 2003, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs kernel sequences namespaces ;
IN: make

SYMBOL: building

<PRIVATE

: make-sequence ( quot exemplar -- seq )
    [
        [
            32 swap new-resizable [
                building set call
            ] keep
        ] keep like
    ] with-scope ; inline

: make-assoc ( quot exemplar -- assoc )
    [
        20 swap new-assoc [
            building set call
        ] keep
    ] with-scope ; inline

PRIVATE>

: make ( quot exemplar -- seq )
    dup sequence? [ make-sequence ] [ make-assoc ] if ; inline

: , ( elt -- ) building get push ;

: % ( seq -- ) building get push-all ;

: ,, ( value key -- ) building get set-at ;

: %% ( assoc -- ) building get swap assoc-union! drop ;