Revision 343563313633 () - Diff

Link to this snippet: https://friendpaste.com/2WeL6Co1rofx7GCWMnzdq7
Embed:
1
2
3
4
5
6
7
(deftype SeqFly [s]
  clojure.lang.ISeq
    (first [this] (first (some-seq s)))
    (next  [this] (SeqFly. (last (some-seq s))))
    (more  [this] (next this))
  Object
    (toString [this] (str s)))