From e323ae3a322f165dfe991e4a0669faf3c7efc5ca Mon Sep 17 00:00:00 2001
From: "U-C4\\Administrator" <Administrator@k.(none)>
Date: Mon, 19 Jan 2009 18:19:12 -0600
Subject: [PATCH] add unit test, fix bounds check error in limited streams

---
 basis/io/streams/limited/limited-tests.factor | 3 +++
 basis/io/streams/limited/limited.factor       | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 basis/io/streams/limited/limited.factor

diff --git a/basis/io/streams/limited/limited-tests.factor b/basis/io/streams/limited/limited-tests.factor
index eb5b921260..40f2c81c9a 100644
--- 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
new mode 100755
index ecc49923de..51d6b54a4e
--- 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