quotation

Vocabulary

tools.image-analyzer.vm

Definition

USING: classes.struct vm ;

IN: tools.image-analyzer.vm

STRUCT: quotation
    { header cell_t initial: 0 } { array cell_t initial: 0 }
    { cached_effect cell_t initial: 0 }
    { cache_counter cell_t initial: 0 }
    { entry_point cell_t initial: 0 } ;

Methods

USING: classes.struct classes.struct.private kernel
tools.image-analyzer.vm ;

M: quotation clone
    clone-underlying \ quotation memory>struct ; inline


USING: accessors arrays kernel layouts math
tools.image-analyzer.references tools.image-analyzer.vm ;

M: quotation pointers
    2nip [ array>> ] [ entry_point>> 4 cell * - ] bi 2array ;


USING: accessors classes.struct combinators.smart
tools.image-analyzer.vm ;

M: quotation struct-slot-values
    {
        [ header>> ]
        [ array>> ]
        [ cached_effect>> ]
        [ cache_counter>> ]
        [ entry_point>> ]
    } cleave>array ; inline