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

generalizations: Update 'npick' to not use >r and r>

db4
Eduardo Cavazos 2008-11-25 05:55:49 -06:00
parent 37f991420b
commit de95773574
1 changed files with 73 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/generalizations/generalizations.factor
View File

@ -22,8 +22,13 @@ MACRO: firstn ( n -- )
bi prefix '[ _ cleave ] bi prefix '[ _ cleave ]
] if ; ] if ;
MACRO: npick ( n -- ) : npick-wrap ( quot n -- quot )
1- dup saver [ dup ] rot [ r> swap ] n*quot 3append ; dup 1 >
[ swap '[ _ dip swap ] swap 1 - npick-wrap ]
[ drop ]
if ;
MACRO: npick ( n -- quot ) [ dup ] swap npick-wrap ;
MACRO: ndup ( n -- ) MACRO: ndup ( n -- )
dup '[ _ npick ] n*quot ; dup '[ _ npick ] n*quot ;