add unit test, fix bounds check error in limited streams

diff --git a/basis/io/streams/limited/limited-tests.factor b/basis/io/streams/limited/limited-tests.factor
index eb5b9212607a3fb8cac46d9dd3bea444c04f6fbd..40f2c81c9a9eb7481a013bfac3483cf9468b3990 100644 (file)
--- a/basis/io/streams/limited/limited-tests.factor
+++ b/basis/io/streams/limited/limited-tests.factor
@@ -38,3 +38,6 @@ namespaces tools.test strings kernel ;
         "l" read-until
     ] with-input-stream
 ] unit-test
+
+[ CHAR: a ]
+[ "a" <string-reader> 1 <limited-stream> stream-read1 ] unit-test

diff --git a/basis/io/streams/limited/limited.factor b/basis/io/streams/limited/limited.factor
old mode 100644 (file)
new mode 100755 (executable)
index ecc4992..51d6b54
--- a/basis/io/streams/limited/limited.factor
+++ b/basis/io/streams/limited/limited.factor
@@ -24,7 +24,7 @@ ERROR: limit-exceeded ;
 
 : check-limit ( n stream -- )
     [ + ] change-count
-    [ count>> ] [ limit>> ] bi >=
+    [ count>> ] [ limit>> ] bi >
     [ limit-exceeded ] when ; inline
 
 M: limited-stream stream-read1