diff --git a/extra/alien/data/map/map.factor b/extra/alien/data/map/map.factor index 466ffe633c..d3634e7b71 100644 --- a/extra/alien/data/map/map.factor +++ b/extra/alien/data/map/map.factor @@ -85,8 +85,7 @@ MACRO: unpack-params ( ins -- quot ) [ c-type-count nip '[ _ firstn-unsafe ] ] map '[ _ spread ] ; MACRO: pack-params ( outs -- quot ) - [ ] [ c-type-count nip dup - [ [ ndip POSTPONE: _ ] dip set-firstn ] 3curry ] reduce + [ ] [ c-type-count nip dup [ [ ndip _ ] dip set-firstn ] 3curry ] reduce fry [ call ] compose ; :: [data-map] ( ins outs param-quot -- quot )