Add a pspy* function

[weavejester]

Currently pspy is a macro, which makes it hard to incorporate into a generalised function. For example, I can't write:

(pspy (var-name v) (test-var v))

To profile my tests.

To fix this, please consider a refactor along the following lines:

(defn pspy* [name func]
  (if-not *pdata*
    (func)
    (let [name (utils/fq-keyword name)
          start-time (System/nanoTime)]
      (try (func)
           (finally
             (let [elapsed (- (System/nanoTime) start-time)]
               (swap! *pdata* #(assoc % name (conj (% name []) elapsed)))))))))

(defmacro pspy [name & body]
  `(pspy* ~name (fn [] ~@body))

[ptaoussanis]

Hey James, sure - that'd be a welcome change. You want to submit a PR, or prefer that I do it?

[ptaoussanis]

Hey James, this'll be included in an upcoming version.

[weavejester]

Thanks - sorry for the delay. I got dragged onto other things and completely forgot about this.

[ptaoussanis]

No problem - cheers! :-)