remove ?head*

db4
Doug Coleman 2008-04-19 19:27:46 -05:00
parent 6e027e2782
commit b257640f97
1 changed files with 0 additions and 3 deletions

View File

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