remove ?head*
parent
6e027e2782
commit
b257640f97
|
@ -197,9 +197,6 @@ USE: continuations
|
|||
>r >r 0 max r> r>
|
||||
[ length tuck min >r min r> ] keep subseq ;
|
||||
|
||||
: ?head* ( seq n -- seq/f ) (head) ?subseq ;
|
||||
: ?tail* ( seq n -- seq/f ) (tail) ?subseq ;
|
||||
|
||||
: accumulator ( quot -- quot vec )
|
||||
V{ } clone [ [ push ] curry compose ] keep ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue