Clean up vocabulary list, remove unused/poorly-named word from io

diff --git a/core/io/encodings/encodings-tests.factor b/core/io/encodings/encodings-tests.factor
index 9b88db5136069c6823b100d02b9571ccf076f4c8..cc32f30060ba9396940b08220b8c800ea93123bb 100644 (file)
--- a/core/io/encodings/encodings-tests.factor
+++ b/core/io/encodings/encodings-tests.factor
@@ -1,7 +1,7 @@
-USING: io.files io.streams.string io io.streams.byte-array
-tools.test kernel io.encodings.ascii io.encodings.utf8
-namespaces accessors io.encodings io.streams.limited ;
-IN: io.streams.encodings.tests
+USING: accessors io io.encodings io.encodings.ascii
+io.encodings.utf8 io.files io.streams.byte-array
+io.streams.string kernel namespaces tools.test ;
+IN: io.encodings.tests
 
 [ { } ]
 [ "vocab:io/test/empty-file.txt" ascii file-lines ]

diff --git a/core/io/io.factor b/core/io/io.factor
index cb6786fe1ceccebdb7ae531b33f3ed37b2b4cbc2..e074135e8c8f258f6a6fbd35a7e020e9e27b7be0 100644 (file)
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -101,9 +101,6 @@ SYMBOL: error-stream
 : stream-element-exemplar ( stream -- exemplar )
     stream-element-type (stream-element-exemplar) ; inline
 
-: element-exemplar ( -- exemplar )
-    input-stream get stream-element-exemplar ; inline
-
 PRIVATE>
 
 : each-stream-line ( stream quot -- )