sequences: move shorten* to sequences.extras

diff --git a/extra/modern/html/html.factor b/extra/modern/html/html.factor
index 0ec7b034a4bb129cc190d7c2d6756099c46983eb..c28b05321aec64814e81d2a0e77b335c03d2bcfb 100644 (file)
--- a/extra/modern/html/html.factor
+++ b/extra/modern/html/html.factor
@@ -159,10 +159,6 @@ C: <dquote> dquote
     ">" expect-and-span
     <close-tag> ;
 
-:: shorten* ( vector n -- seq )
-    vector n tail
-    n vector shorten ;
-
 : unclosed-open-tag? ( obj -- ? )
     { [ open-tag? ] [ close-tag>> not ] } 1&& ; inline
 

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index ae0de0ae73607fb56fd0747b53a9820b41ccfd8f..e6de86632110001a4f62ec74dc23dce210de2d9b 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -688,6 +688,10 @@ PRIVATE>
     [ not ] compose [ find-last drop ] keepd
     length swap [ - 1 - ] when* ; inline
 
+:: shorten* ( vector n -- seq )
+    vector n tail
+    n vector shorten ;
+
 :: interleaved-as ( seq glue exemplar -- newseq )
     seq length dup 1 - + 0 max exemplar new-sequence :> newseq
     seq [ 2 * newseq set-nth-unsafe ] each-index