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

Move set-last from circular.private to sequences

Slava Pestov 2009-07-28 11:51:47 -05:00
parent afd914c808
commit 61371713b7
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/circular/circular.factor
View File

@ -43,11 +43,10 @@ TUPLE: growing-circular < circular length ;
M: growing-circular length length>> ; M: growing-circular length length>> ;
<PRIVATE <PRIVATE
: full? ( circular -- ? ) : full? ( circular -- ? )
[ length ] [ seq>> length ] bi = ; [ length ] [ seq>> length ] bi = ;
: set-last ( elt seq -- )
[ length 1- ] keep set-nth ;
PRIVATE> PRIVATE>
: push-growing-circular ( elt circular -- ) : push-growing-circular ( elt circular -- )

4
basis/hints/hints.factor
View File

@ -83,6 +83,10 @@ SYNTAX: HINTS:
\ push { { vector } { sbuf } } "specializer" set-word-prop \ push { { vector } { sbuf } } "specializer" set-word-prop
\ last { { vector } } "specializer" set-word-prop
\ set-last { { object vector } } "specializer" set-word-prop
\ push-all \ push-all
{ { string sbuf } { array vector } { byte-array byte-vector } } { { string sbuf } { array vector } { byte-array byte-vector } }
"specializer" set-word-prop "specializer" set-word-prop

2
core/sequences/sequences.factor
View File

@ -633,6 +633,8 @@ PRIVATE>
: last ( seq -- elt ) [ length 1 - ] [ nth ] bi ; : last ( seq -- elt ) [ length 1 - ] [ nth ] bi ;
: set-last ( elt seq -- ) [ length 1 - ] keep set-nth ;
: pop* ( seq -- ) [ length 1 - ] [ shorten ] bi ; : pop* ( seq -- ) [ length 1 - ] [ shorten ] bi ;
<PRIVATE <PRIVATE