<code-block> ( seq -- code-block )

Vocabulary

tools.memory.private

Inputs

seq

an object

Outputs

code-block

an object

Definition

USING: combinators kernel layouts math namespaces
sequences.generalizations tools.memory ;

IN: tools.memory.private

: <code-block> ( seq -- code-block )
    6 firstn-unsafe
    { [ ] [ ] [ ] [ ] [ ] [ tag-bits get shift ] } spread
    code-block boa ; inline