 
                       :else
                       (t/track
-                        (format "Describing query parameter `%s'." (name k))
+                        #(format "Describing query parameter `%s'." (name k))
                         (let [schema-description (simple->swagger-schema swagger-options key-schema)
                               full-description (assoc schema-description
                                                  :name k

  (let [responses (-> routing-entry :meta :responses)
        reducer (fn [so [status-code schema]]
                  (t/track
                    (format "Describing %d response." status-code)
                    (let [schema-meta (meta schema)
                          description (or (:description schema-meta)
                                          (:doc schema-meta)

  (let [reducer (fn [o [schema-key schema-value]]
                  (let [[k required?] (reduce-schema-key schema-key)]
                    (t/track
                      #(format "Describing key `%s'." (name k))
                      (let [swagger-schema (simple->swagger-schema swagger-options schema-value)]
                        (cond-> (assoc-in o [:properties k] swagger-schema)
                                required? (update-in [:required] conj k))))))]
