USING: assocs kernel vectors sequences ;
IN: assocs.lib

: insert-at ( value key assoc -- )
    [ ?push ] change-at ;

: >set ( seq -- hash )
    [ dup ] H{ } map>assoc ;

: ref-hash ( table key -- value ) swap at ;

! set-hash with alternative stack effects

: put-hash* ( table key value -- ) spin set-at ;

: put-hash ( table key value -- table ) swap pick set-at ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: set-hash-stack ( value key seq -- )
    dupd [ key? ] with find-last nip set-at ;

: at-default ( key assoc -- value/key )
    dupd at [ nip ] when* ;

: at-peek ( key assoc -- value ? )
    at* dup >r [ peek ] when r> ;