Make inspect-print-current-value an async op

I moved the inspect-print-current-value op out of
"with-safe-transport" because I saw an exception in
the *nrepl-messages* buffer with a "pprint-stacktrace". I believe this
is due to inspect-print-current-value sending messages back line by
line, which is different from the safe-transport handlers.

Author: r0man

src/cider/nrepl/middleware/inspect.clj

@@ -115,8 +115,8 @@
     (with-open [writer (print/replying-PrintWriter :value msg msg)]
       (binding [*print-length* (or *print-length* 100)
                 *print-level* (or *print-level* 20)]
-        ((or print-fn pprint/pprint) (:value inspector) writer))
-      (.flush writer))
+        ((or print-fn pprint/pprint) (:value inspector) writer)
+        (.flush writer)))
     (respond-to msg :status :done)))
 
 (defn tap-current-value [msg]
@@ -126,11 +126,15 @@
   (inspector-response msg (swap-inspector! msg inspect/tap-indexed (:idx msg))))
 
 (defn handle-inspect [handler {:keys [op inspect] :as msg}]
-  (if (and (= op "eval") inspect)
+  (cond
+    (and (= op "eval") inspect)
     (handle-eval-inspect handler msg)
 
+    (and (= op "inspect-print-current-value"))
+    (print-current-value-reply msg)
+
+    :else
     (with-safe-transport handler msg
-      "inspect-print-current-value" print-current-value-reply
       "inspect-pop" pop-reply
       "inspect-push" push-reply
       "inspect-next-sibling" next-sibling-reply