extra/tools/image-analyzer/vm/64/64.factor

   1 USING: alien.c-types classes.struct vm ;
   2 IN: tools.image-analyzer.vm
   3
   4 STRUCT: boxed-float
   5     { header cell }
   6     { n double } ;
   7
   8 STRUCT: byte-array
   9     { header cell }
  10     { capacity cell } ;