[ iter-length>> * >fixnum ]
[ bytes>> ]
[ count>> ]
- [ c-type>> ]
+ [ c-type>> ]
} cleave <displaced-direct-array> ; inline
INSTANCE: data-map-param immutable-sequence
: [>param] ( type -- quot )
c-type-count over c-type-name?
- [ [>c-type-param] ] [ [>object-param] ] if ;
+ [ [>c-type-param] ] [ [>object-param] ] if ;
MACRO: >param ( in -- quot: ( array -- param ) )
[>param] ;
: [alloc-param] ( type -- quot )
c-type-count over c-type-name?
- [ [alloc-c-type-param] ] [ [alloc-object-param] ] if ;
+ [ [alloc-c-type-param] ] [ [alloc-object-param] ] if ;
MACRO: alloc-param ( out -- quot: ( len -- param ) )
[alloc-param] ;
SYNTAX: data-map!(
parse-data-map-effect \ data-map! suffix! ;
-