basis/tools/deploy/shaker/strip-struct-arrays.factor

   1 USING: kernel stack-checker.transforms ;
   2 IN: struct-arrays.private
   3
   4 : struct-element-constructor ( c-type -- word )
   5     "Struct array usages must be compiled" throw ;
   6
   7 <<
   8
   9 \ struct-element-constructor [
  10     (struct-element-constructor) [ ] curry
  11 ] 1 define-transform
  12
  13 >>