Browse files

Renamed assoc+ to assoc-conj

  • Loading branch information...
1 parent 5b81dce commit 7f42a8eb1bc700cbece30255407fc99e62fb4b30 @weavejester weavejester committed Mar 24, 2012
@@ -1,6 +1,6 @@
(ns ring.middleware.multipart-params
"Parse multipart upload into params."
- (:use [ :only (assoc+)])
+ (:use [ :only (assoc-conj)])
(:import [org.apache.commons.fileupload.util Streams]
@@ -54,7 +54,7 @@
(->> (request-context request encoding)
(map #(parse-file-item % store))
- (reduce (fn [m [k v]] (assoc+ m k v)) {})))
+ (reduce (fn [m [k v]] (assoc-conj m k v)) {})))
(defn- load-var
"Returns the var named by the supplied symbol, or nil if not found. Attempts
@@ -107,7 +107,7 @@
(fn [m param]
(if-let [[k v] (str/split param #"=" 2)]
- (assoc+ m (form-decode-str k encoding) (form-decode-str v encoding))
+ (assoc-conj m (form-decode-str k encoding) (form-decode-str v encoding))
(str/split encoded #"&"))))
@@ -1,7 +1,7 @@
"Miscellaneous functions for manipulating data structures.")
-(defn assoc+
+(defn assoc-conj
"Associate a key with a value in a map. If the key already exists in the map,
a vector of values is associated with the key."
[map key val]

0 comments on commit 7f42a8e

Please sign in to comment.