     (cider-interactive-eval
      (format "(do (require 'criterium.core) (criterium.core/quick-bench %s) :ok)"
              sexp)
-     (clj-decompile-popup-eval-handler
+     (clj-combined-popup-eval-handler
       buf
       (lambda () nil)))))
 

           '[clj-java-decompiler.core :refer [decompile disassemble]]
           '[criterium.core :as crit])"))

(defun clj-decompile-popup-eval-handler (buffer complete-handler)
  "Make a handler for printing evaluation results in popup BUFFER.
This is used by pretty-printing commands."
  (nrepl-make-response-handler
   buffer
   (lambda (buffer value)

    (cider-interactive-eval
     (format "(do (require '[clj-java-decompiler.core :refer [decompile disassemble]]) (%s %s) :ok)"
             operation sexp)
     (clj-combined-popup-eval-handler buf complete-handler))))

(defun clj-decompile ()
  "Use clj-java-decompiler to decompile sexp-at-point"
