delete-at ( key assoc -- )
Factor handbook » The language » Collections » Associative mapping operations » Associative mapping protocol

Prev:	set-at ( value key assoc -- )
Next:	clear-assoc ( assoc -- )

Vocabulary
assocs

Inputs

key	a key
assoc	an assoc

Outputs
None

Generic word contract
Removes an entry from the assoc.

Side effects
Modifies assoc

See also
delete-at*, ?delete-at

Definition

IN: assocs

GENERIC: delete-at ( key assoc -- )

Methods

USING: accessors assocs kernel sequences xml.data ;

M: attrs delete-at
    [ nip ] [ attr@ drop ] 2bi
    [ swap alist>> remove-nth! drop ] [ drop ] if* ;


USING: accessors assocs kernel trees.avl trees.avl.private
trees.private ;

M: avl delete-at
    [ avl-delete nip swap ] change-root swap
    [ dup dec-count ] when drop ;


USING: assocs biassocs ;

M: biassoc delete-at no-biassoc-deletion ;


USING: accessors assocs bitcask bitcask.private
io.encodings.binary io.files kernel ;

M:: bitcask delete-at ( key bitcask -- )
    key bitcask index>> key? [
        bitcask path>> binary
        [ key write-tombstone key bitcask index>> delete-at ]
        with-file-appender
    ] when ;


USING: accessors assocs kernel sequences ;

M: enumerated delete-at seq>> remove-nth! drop ; inline


USING: assocs env environment kernel ;

M: env delete-at drop unset-os-env ;


USING: accessors assocs kernel namespaces.private ;

M: global-hashtable delete-at box-at f swap value<< ; inline


USING: assocs hashtables hashtables.private kernel ;

M: hashtable delete-at
    [ nip ] [ key@ ] 2bi
    [ [ +tombstone+ dup ] 2dip set-nth-pair hash-deleted+ ]
    [ 3drop ] if ;


USING: accessors assocs kernel linked-assocs
linked-assocs.private ;

M: linked-assoc delete-at
    [ assoc>> ] [ dlist>> ] bi (delete-at) ;


USING: assocs mirrors ;

M: mirror delete-at \ delete-at mirror-slot-removal ;


USING: assocs kernel sequences sequences.n-based
sequences.n-based.private ;

M: n-based-assoc delete-at [ f ] 2dip n-based@ set-nth ;


USING: assocs kernel pairs ;

M: pair delete-at
    [ cannot-delete-key ] [ [ delete-at ] [ 2drop ] if-hash ]
    if-key ; inline


USING: assocs quadtrees quadtrees.private ;

M: quadtree delete-at erase ;


USING: assocs kernel redis ;

M: redis delete-at [ redis-del drop ] with-redis ;


USING: assocs assocs.private kernel sequences ;

M: sequence delete-at
    [ nip ] [ search-alist nip ] 2bi
    [ swap remove-nth! drop ] [ drop ] if* ;


USING: accessors assocs kernel trees.splay trees.splay.private ;

M: splay delete-at dup root>> [ remove-splay ] [ 2drop ] if ;


USING: accessors arrays assocs classes.struct.prettyprint
combinators kernel sequences ;

M: struct-mirror delete-at
    object>> {
        { [ over "underlying" = ] [ 2drop ] }
        { [ over array? ] [ swap first reset-struct-slot ] }
        [ 2drop ]
    } cond ;


USING: accessors assocs kernel xml.data ;

M: tag delete-at [ attrs>> ] call \ delete-at execute ;


USING: accessors assocs kernel sequences serialize
tokyo.abstractdb tokyo.alien.tcadb ;

M: tokyo-abstractdb delete-at
    handle>> swap object>bytes dup length tcadbout drop ;


USING: accessors assocs kernel sequences serialize
tokyo.alien.tcrdb tokyo.remotedb ;

M: tokyo-remotedb delete-at
    handle>> swap object>bytes dup length tcrdbout drop ;


USING: accessors assocs kernel trees trees.private ;

M: tree delete-at
    [ delete-bst-node swap ] change-root swap
    [ dup dec-count ] when drop ;


USING: assocs hashtables.wrapped hashtables.wrapped.private ;

M: wrapped-hashtable delete-at wrapper@ delete-at ; inline