Removing sequences.next

diff --git a/basis/sequences/next/authors.txt b/basis/sequences/next/authors.txt
deleted file mode 100644 (file)
index f990dd0..0000000
--- a/basis/sequences/next/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Daniel Ehrenberg

diff --git a/basis/sequences/next/next-tests.factor b/basis/sequences/next/next-tests.factor
deleted file mode 100644 (file)
index be728b2..0000000
--- a/basis/sequences/next/next-tests.factor
+++ /dev/null
@@ -1,5 +0,0 @@
-USING: sequences.next tools.test arrays kernel math sequences ;
-
-[ { { 1 0 } { 2 1 } { f 2 } } ] [ 3 [ 2array ] map-next ] unit-test
-
-[ 8 ] [ 3 [ 1+ ] map 0 swap [ swap [ + + ] [ drop ] if* ] each-next ] unit-test

diff --git a/basis/sequences/next/next.factor b/basis/sequences/next/next.factor
deleted file mode 100644 (file)
index 19b406c..0000000
--- a/basis/sequences/next/next.factor
+++ /dev/null
@@ -1,21 +0,0 @@
-USING: kernel sequences sequences.private math ;
-IN: sequences.next
-
-<PRIVATE
-
-: iterate-seq ( seq quot -- i seq quot )
-    [ [ length ] keep ] dip ; inline
-
-: (map-next) ( i seq quot -- )
-    ! this uses O(n) more bounds checks than is really necessary
-    [ [ [ 1+ ] dip ?nth ] 2keep nth-unsafe ] dip call ; inline
-
-PRIVATE>
-
-: each-next ( seq quot: ( next-elt elt -- ) -- )
-    iterate-seq [ (map-next) ] 2curry each-integer ; inline
-
-: map-next ( seq quot: ( next-elt elt -- newelt ) -- newseq )
-    over dup length swap new-sequence [
-        iterate-seq [ (map-next) ] 2curry
-    ] dip [ collect ] keep ; inline

diff --git a/basis/sequences/next/summary.txt b/basis/sequences/next/summary.txt
deleted file mode 100644 (file)
index fe5bd31..0000000
--- a/basis/sequences/next/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Iteration with access to next element

diff --git a/basis/sequences/next/tags.txt b/basis/sequences/next/tags.txt
deleted file mode 100644 (file)
index 42d711b..0000000
--- a/basis/sequences/next/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-collections

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 7566138e11f34057fa4f808bbbe3217083c42338..65fab0ac382c5d3671a455902788cb1c4bdd7a30 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: unicode.data sequences sequences.next namespaces
+USING: unicode.data sequences namespaces
 sbufs make unicode.syntax unicode.normalize math hints
 unicode.categories combinators unicode.syntax assocs
 strings splitting kernel accessors unicode.breaks fry locals ;