error-slots ( slots -- slots' )

Vocabulary

classes.tuple.private

Inputs

slots

an object

Outputs

slots'

an object

Definition

USING: arrays kernel sequences strings ;

IN: classes.tuple.private

: error-slots ( slots -- slots' )
    [
        dup string? [ 1array ] when read-only swap remove
        read-only suffix
    ] map ;