 
 (defn summarize [results]
   (-> results
-      (select-keys [:results
-                    :total-time
-                    :samples])
+      (select-keys [:total-time :samples])
       (merge {:system {:os (str (get-in results
                                         [:os-details :name])
                                 " "

                                    (summarize (b % opts))))
          results (run-benchmarks benchmarks bench-fn)]
      (save-results results results-path)
      (check-results alternatives inputs results)
      (final-summary groups results chart-path))))

        ~@body)))


(defn assert-result [f msg]
  (fn [& args]
    (let [r (apply f args)]
      (assert r (format msg args))
      r)))


(defn final-summary [groups results chart-path]
