steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This reverts commit 28f0f471d3.
modern-harvey3
Doug Coleman 2019-10-06 13:27:44 -05:00
parent ea8f29706a
commit 8033cb02f3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/alien/data/map/map.factor
View File

@ -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 )