Move set-last from circular.private to sequences

diff --git a/basis/circular/circular.factor b/basis/circular/circular.factor
index d47b954ecfb1b555c4d905609347c6692a40e99d..9995567ec899c93f047e0f07f97343cf34d6e737 100644 (file)
--- a/basis/circular/circular.factor
+++ b/basis/circular/circular.factor
@@ -43,11 +43,10 @@ TUPLE: growing-circular < circular length ;
 M: growing-circular length length>> ;
 
 <PRIVATE
+
 : full? ( circular -- ? )
     [ length ] [ seq>> length ] bi = ;
 
-: set-last ( elt seq -- )
-    [ length 1- ] keep set-nth ;
 PRIVATE>
 
 : push-growing-circular ( elt circular -- )

diff --git a/basis/hints/hints.factor b/basis/hints/hints.factor
index cfd6329b1d4fba2db64818a6bae385fa6c842ded..d10bd5f8a97f1fb35201e9ebe36abbdfa206328a 100644 (file)
--- a/basis/hints/hints.factor
+++ b/basis/hints/hints.factor
@@ -83,6 +83,10 @@ SYNTAX: HINTS:
 
 \ push { { vector } { sbuf } } "specializer" set-word-prop
 
+\ last { { vector } } "specializer" set-word-prop
+
+\ set-last { { object vector } } "specializer" set-word-prop
+
 \ push-all
 { { string sbuf } { array vector } { byte-array byte-vector } }
 "specializer" set-word-prop

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 6eea87234399ea509ab86847b8cd4498ea128360..55d4bc9be91130ebe7311e9f891c4448e574b887 100755 (executable)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -633,6 +633,8 @@ PRIVATE>
 
 : last ( seq -- elt ) [ length 1 - ] [ nth ] bi ;
 
+: set-last ( elt seq -- ) [ length 1 - ] keep set-nth ;
+
 : pop* ( seq -- ) [ length 1 - ] [ shorten ] bi ;
 
 <PRIVATE