   (assert (every? generator? generators)
           "Arg to one-of must be a collection of generators")
   (bind (choose 0 (dec (count generators)))
-        (partial nth generators)))
+        #(nth generators %)))
 
 (defn- pick
   [[h & tail] n]

  `key-gen` and values chosen from `val-gen`."
  [key-gen val-gen]
  (let [input (vector (tuple key-gen val-gen))]
    (fmap (partial into {}) input)))

(defn hash-map
  "Like clojure.core/hash-map, except the values are generators.

  ([generator max-size]
   (let [r (random/make-random)
         size-seq (make-size-range-seq max-size)]
     (core/map #(rose/root (call-gen generator %1 %2))
               (lazy-random-states r)
               size-seq))))

