core/make/make.factor

   1 ! Copyright (C) 2003, 2008 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: assocs kernel sequences namespaces ;
   4 IN: make
   5
   6 SYMBOL: building
   7
   8 <PRIVATE
   9
  10 : make-sequence ( quot exemplar -- seq )
  11     [
  12         32 swap new-resizable [
  13             building [ call ] with-variable
  14         ] keep
  15     ] keep like ; inline
  16
  17 : make-assoc ( quot exemplar -- assoc )
  18     5 swap new-assoc [
  19         building [ call ] with-variable
  20     ] keep ; inline
  21
  22 PRIVATE>
  23
  24 : make ( quot exemplar -- seq )
  25     dup sequence? [ make-sequence ] [ make-assoc ] if ; inline
  26
  27 : , ( elt -- ) building get push ;
  28
  29 : % ( seq -- ) building get push-all ;
  30
  31 : ,, ( value key -- ) building get set-at ;
  32
  33 : %% ( assoc -- ) building get swap assoc-union! drop ;
  34
  35 : ,+ ( n key -- ) building get at+ ;