simon/beowulf
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Removal of redundant code.

Browse source
This commit is contained in:
Simon Brooke 2019-08-16 17:03:17 +01:00
parent dfe4333dfa
commit 3f4e873e74
1 changed files with 9 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/beowulf/cons_cell.clj
View file

@ -14,19 +14,13 @@
;; next and more must return ISeq:
;; https://github.com/clojure/clojure/blob/master/src/jvm/clojure/lang/ISeq.java
(more [this] (if
(seq? this)
(if
(= (.CDR this) NIL)
clojure.lang.PersistentList/EMPTY
(.CDR this))
NIL))
(seq? (.CDR this))
clojure.lang.PersistentList/EMPTY
(.CDR this)))
(next [this] (if
(seq? this)
(if
(= (.CDR this) NIL)
nil ;; next returns nil when empty
(.CDR this))
NIL))
(seq? (.CDR this))
nil ;; next returns nil when empty
(.CDR this)))
clojure.lang.Seqable
(seq [this] this)
@ -37,12 +31,9 @@
clojure.lang.IPersistentCollection
(count [this] (if
(seq? this)
(if
(= (.CDR this) NIL)
0
(inc (count (.CDR this))))
0))
(seq? (.CDR this))
0
(inc (count (.CDR this)))))
(empty [this] false)
(equiv [this other] false))