resize-underlying ( struct -- )

Vocabulary

classes.struct.private

Inputs

struct

an object

Outputs

None

Definition

USING: byte-arrays classes kernel sequences.private
slots.private words ;

IN: classes.struct.private

: resize-underlying ( struct -- )
    [ 2 slot dup byte-array? ] [
        class-of "struct-size" word-prop [ swap resize ] curry
        [ drop f ] if
    ] [ 2 set-slot ] tri ;