hash-case-quot ( default assoc -- quot )

Vocabulary

combinators.private

Inputs

default	an object
assoc	an object

Outputs

quot

an object

Definition

USING: kernel math sequences ;

IN: combinators.private

: hash-case-quot ( default assoc -- quot )
    hash-case-table hash-dispatch-quot
    [ dup hashcode >fixnum ] prepend ;