From 28f0f471d373fda5cbaf623c3fa4c55ab9b3f218 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 5 Oct 2019 14:32:35 -0700 Subject: [PATCH] alien.data.map: fix use of _ for fry change. --- extra/alien/data/map/map.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/alien/data/map/map.factor b/extra/alien/data/map/map.factor index 994eb3272b..4b871ce5ae 100644 --- a/extra/alien/data/map/map.factor +++ b/extra/alien/data/map/map.factor @@ -85,7 +85,8 @@ MACRO: unpack-params ( ins -- quot ) [ c-type-count nip '[ _ firstn-unsafe ] ] map '[ _ spread ] ; 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 ; :: [data-map] ( ins outs param-quot -- quot )