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

This reverts commit 28f0f471d3.
2019-10-06 13:27:44 -05:00 · 2019-10-06 13:27:44 -05:00 · 8033cb02f3
parent ea8f29706a
commit 8033cb02f3
1 changed files with 1 additions and 2 deletions
--- 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 )