diff --git a/extra/classes/struct/vectored/vectored-tests.factor b/extra/classes/struct/vectored/vectored-tests.factor index 1b3aa86eff..4d083faa5d 100644 --- a/extra/classes/struct/vectored/vectored-tests.factor +++ b/extra/classes/struct/vectored/vectored-tests.factor @@ -1,6 +1,7 @@ ! (c)2009 Joe Groff bsd license USING: accessors alien.c-types classes.struct classes.struct.vectored -kernel sequences specialized-arrays tools.test ; +kernel sequences specialized-arrays tools.test vocabs compiler.units ; +FROM: specialized-arrays.private => specialized-array-vocab ; SPECIALIZED-ARRAYS: int ushort float ; IN: classes.struct.vectored.tests @@ -71,3 +72,9 @@ VECTORED-STRUCT: foo { w ushort-array{ 15 25 35 45 } } } third vectored-element> ] unit-test + +[ ] [ + [ + foo specialized-array-vocab forget-vocab + ] with-compilation-unit +] unit-test