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

Move unclip-last to sequences

db4
Slava Pestov 2008-05-05 00:13:17 -05:00
parent 234242e631
commit fa1938eda1
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/generic/standard/engines/tuple/tuple.factor
View File

@ -127,8 +127,6 @@ M: echelon-dispatch-engine engine>quot
1 slot { tuple-layout } declare 1 slot { tuple-layout } declare
5 slot ; inline 5 slot ; inline
: unclip-last [ 1 head* ] [ peek ] bi ;
M: tuple-dispatch-engine engine>quot M: tuple-dispatch-engine engine>quot
[ [
picker % picker %

3
core/sequences/sequences.factor
View File

@ -670,6 +670,9 @@ PRIVATE>
: unclip ( seq -- rest first ) : unclip ( seq -- rest first )
[ rest ] [ first ] bi ; [ rest ] [ first ] bi ;
: unclip-last ( seq -- rest last )
[ 1 head* ] [ peek ] bi ;
: unclip-slice ( seq -- rest first ) : unclip-slice ( seq -- rest first )
[ rest-slice ] [ first ] bi ; [ rest-slice ] [ first ] bi ;