remove false equivalence rules
This commit is contained in:
parent
dffec72800
commit
b03bbbe11f
2 changed files with 4 additions and 3 deletions
|
@ -1,4 +1,4 @@
|
|||
(defproject yogsototh/kibit "0.1.4"
|
||||
(defproject yogsototh/kibit "0.1.5"
|
||||
:description "There's a function for that!"
|
||||
:url "https://github.com/yogsototh/kibit"
|
||||
:license {:name "Eclipse Public License - v 1.0"
|
||||
|
|
|
@ -14,8 +14,9 @@
|
|||
[(update-in ?coll ?keys assoc ?val) (assoc-in ?coll ?keys ?val)]
|
||||
|
||||
;; empty?
|
||||
[(not (empty? ?x)) (seq ?x)]
|
||||
[(when-not (empty? ?x) . ?y) (when (seq ?x) . ?y)]
|
||||
;; THESE RULES ARE FALSE!!!!!!!!!!
|
||||
;; [(not (empty? ?x)) (seq ?x)]
|
||||
;; [(when-not (empty? ?x) . ?y) (when (seq ?x) . ?y)]
|
||||
|
||||
;; set
|
||||
[(into #{} ?coll) (set ?coll)]
|
||||
|
|
Loading…
Reference in a new issue