diff options
| -rw-r--r-- | src/set.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/set.clj b/src/set.clj index 330143ad..b678009b 100644 --- a/src/set.clj +++ b/src/set.clj @@ -27,7 +27,7 @@ (defn select "Returns a set of the elements for which pred is true" [pred xset] - (reduce (fn [s k] (if (pred k) (disj s k) s)) + (reduce (fn [s k] (if (pred k) s (disj s k))) xset xset)) (defn project |