basis/compiler/tests/redefine23.factor

   1 IN: compiler.tests.redefine23
   2 USING: classes.struct specialized-arrays alien.c-types sequences
   3 compiler.units vocabs tools.test specialized-arrays.private ;
   4
   5 STRUCT: my-struct { x int } ;
   6 SPECIALIZED-ARRAY: my-struct
   7 : my-word ( a -- b ) iota [ my-struct <struct-boa> ] my-struct-array{ } map-as ;
   8
   9 [ ] [
  10     [
  11         my-struct specialized-array-vocab forget-vocab
  12     ] with-compilation-unit
  13 ] unit-test