alien.syntax classes classes.struct combinators
combinators.short-circuit io.encodings.ascii io.encodings.string
kernel literals make math sequences specialized-arrays typed
-fry io.mmap formatting locals splitting endian arrays ;
-FROM: alien.c-types => short ;
+io.mmap formatting splitting endian ;
IN: macho
! FFI data
: sections-array ( segment-commands -- sections-array )
[
dup first segment_command_64?
- [ section_64 ] [ section ] if <struct> ,
+ [ section_64 ] [ section ] if new ,
segment-commands [ segment-sections [ , ] each ] each
] { } make ;