fix range with too large negative index, patch from Olov Lassus

made Range implement count()

1 files changed, 5 insertions, 1 deletions

diff --git a/src/jvm/clojure/lang/Range.java b/src/jvm/clojure/lang/Range.java
index 8785f970..226a77ba 100644
--- a/src/jvm/clojure/lang/Range.java
+++ b/src/jvm/clojure/lang/Range.java
@@ -59,7 +59,11 @@ public Object reduce(IFn f, Object start) throws Exception{
 	return ret;
 }
 
-public IStream stream() throws Exception {
+public int count() {
+    return end - n;
+    }
+
+    public IStream stream() throws Exception {
     final AtomicInteger an = new AtomicInteger(n);
     return new IStream(){
         public Object next() throws Exception {