alien.data.map: fix use of _ for fry change.

clean-macosx-x86-64
John Benediktsson 2019-10-05 14:32:35 -07:00
parent 78c3a99a31
commit 28f0f471d3
1 changed files with 2 additions and 1 deletions

View File

@ -85,7 +85,8 @@ MACRO: unpack-params ( ins -- quot )
[ c-type-count nip '[ _ firstn-unsafe ] ] map '[ _ spread ] ; [ c-type-count nip '[ _ firstn-unsafe ] ] map '[ _ spread ] ;
MACRO: pack-params ( outs -- quot ) MACRO: pack-params ( outs -- quot )
[ ] [ c-type-count nip dup [ [ ndip _ ] dip set-firstn ] 3curry ] reduce [ ] [ c-type-count nip dup
[ [ ndip POSTPONE: _ ] dip set-firstn ] 3curry ] reduce
fry [ call ] compose ; fry [ call ] compose ;
:: [data-map] ( ins outs param-quot -- quot ) :: [data-map] ( ins outs param-quot -- quot )