From 8033cb02f3bc1b874dbf06ac3e46535d1da2344c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 6 Oct 2019 13:27:44 -0500 Subject: [PATCH] Revert "alien.data.map: fix use of _ for fry change." This reverts commit 28f0f471d373fda5cbaf623c3fa4c55ab9b3f218. --- extra/alien/data/map/map.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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 )