hash-dispatch-quot ( table -- quot )

Vocabulary

combinators.private

Inputs

table

an object

Outputs

quot

an object

Definition

USING: kernel math math.private sequences sequences.private ;

IN: combinators.private

: hash-dispatch-quot ( table -- quot )
    [ length 1 - [ fixnum-bitand ] curry ] keep
    [ dispatch ] curry append ;