diff options
| author | Mark Engelberg <mark.engelberg@gmail.com> | 2011-05-20 20:42:45 -0700 |
|---|---|---|
| committer | Mark Engelberg <mark.engelberg@gmail.com> | 2011-05-20 20:42:45 -0700 |
| commit | 52420d021b319b388b9a73bf26ef363e96859171 (patch) | |
| tree | 33fb1e7c4cbdd6a0f6c09b63863305b4c633ea87 | |
| parent | 7e1fed9fca1ee6e8e321eb0c2148b6fda9fb076e (diff) | |
qualified :not-found keyword in priority-map
| -rw-r--r-- | modules/priority-map/src/main/clojure/clojure/contrib/priority_map.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/priority-map/src/main/clojure/clojure/contrib/priority_map.clj b/modules/priority-map/src/main/clojure/clojure/contrib/priority_map.clj index 77a5df1b..ac1dcea9 100644 --- a/modules/priority-map/src/main/clojure/clojure/contrib/priority_map.clj +++ b/modules/priority-map/src/main/clojure/clojure/contrib/priority_map.clj @@ -228,8 +228,8 @@ to Clojure's assortment of built-in maps (hash-map and sorted-map). ;without implements (dissoc pm k) behavior (without [this item] - (let [priority (item->priority item :not-found)] - (if (= priority :not-found) + (let [priority (item->priority item ::not-found)] + (if (= priority ::not-found) ;; If item is not in map, return the map unchanged. this (let [item-set (priority->set-of-items priority)] |