* devnotes/corelib.org: add IReversible, rseq, & reversible?

Author: David Nolen

devnotes/corelib.org

@@ -460,8 +460,8 @@ ticket #8
 * restart-agent
 * resultset-seq
 * DONE reverse
-* TODO reversible?
-* TODO rseq
+* DONE reversible?
+* DONE rseq
 * TODO rsubseq
 * DONE satisfies?
 as macro

src/cljs/cljs/core.cljs

@@ -193,6 +193,9 @@
 (defprotocol IRecord
   "Marker interface indicating a record object")
 
+(defprotocol IReversible
+  (-rseq [coll]))
+
 (defprotocol IPrintable
   (-pr-seq [o opts]))
 
@@ -1216,6 +1219,12 @@ reduces them without incurring seq initialization"
 
 (set! cljs.core.List/EMPTY (EmptyList. nil))
 
+(defn reversible? [coll]
+  (satisfies? IReversible coll))
+
+(defn rseq [coll]
+  (-rseq coll))
+
 (defn reverse
   "Returns a seq of the items in coll in reverse order. Not lazy."
   [coll]