factor/basis/compiler/tests/redefine23.factor

IN: compiler.tests.redefine23
USING: classes.struct specialized-arrays alien.c-types sequences
compiler.units vocabs tools.test ;
FROM: specialized-arrays.private => specialized-array-vocab ;

STRUCT: my-struct { x int } ;
SPECIALIZED-ARRAY: my-struct
: my-word ( a -- b ) iota [ my-struct <struct-boa> ] my-struct-array{ } map-as ;

[ ] [
    [
        my-struct specialized-array-vocab forget-vocab
    ] with-compilation-unit
] unit-test