string representations for Range

stuarth · stuarth · commit 77db40c29b98 · 2015-04-19T21:17:43.000-04:00
diff --git a/pixie/stdlib.pxi b/pixie/stdlib.pxi
@@ -1768,6 +1768,13 @@ For more information, see http://clojure.org/special_forms#binding-forms"}
               (and (< step 0) (> start stop)))
       (cons start (lazy-seq* #(range (+ start step) stop step))))))
 
+(extend -str Range
+        (fn [v]
+          (-str (seq v))))
+(extend -repr Range
+        (fn [v]
+          (-repr (seq v))))
+
 (defn range
   {:doc "Returns a range of numbers."
    :examples [["(seq (range 3))" nil (0 1 2)]
diff --git a/tests/pixie/tests/test-stdlib.pxi b/tests/pixie/tests/test-stdlib.pxi
@@ -36,7 +36,8 @@
   (t/assert= (str {:a 1}) "{:a 1}")
   (t/assert= (str (type 3)) "<type pixie.stdlib.Integer>")
   (t/assert= (str [1 {:a 1} "hey"]) "[1 {:a 1} hey]")
-  (t/assert= (seq (map identity "iterable")) '(\i \t \e \r \a \b \l \e)))
+  (t/assert= (seq (map identity "iterable")) '(\i \t \e \r \a \b \l \e))
+  (t/assert= (str (range 3)) "(0 1 2)"))
 
 (t/deftest test-repr
   (t/assert= (-repr nil) "nil")
@@ -58,7 +59,8 @@
   (t/assert= (-repr {:a 1}) "{:a 1}")
   (t/assert= (-repr (type 3)) "pixie.stdlib.Integer")
 
-  (t/assert= (-repr [1 {:a 1} "hey"]) "[1 {:a 1} \"hey\"]"))
+  (t/assert= (-repr [1 {:a 1} "hey"]) "[1 {:a 1} \"hey\"]")
+  (t/assert= (-repr (range 3)) "(0 1 2)"))
 
 (t/deftest test-nth
   ;; works if the index is found
