Improvements to cider-eval-defun-at-point

Author: Malabarba

cider-interaction.el

@@ -1691,18 +1691,17 @@ Print its value into the current buffer."
   (interactive)
   (cider--pprint-eval-form (cider-last-sexp)))
 
-(defun cider-eval-defun-at-point (&optional prefix)
+(defun cider-eval-defun-at-point (&optional debug-it)
   "Evaluate the current toplevel form, and print result in the minibuffer.
-With a PREFIX argument, debug the form instead by invoking
-`cider-debug-defun-at-point'."
+With DEBUG-IT prefix argument, debug the form instead by invoking
+the command `cider-debug-defun-at-point'."
   (interactive "P")
-  (if prefix
+  (if debug-it
       (progn (require 'cider-debug)
              (cider-debug-defun-at-point))
     (cider-interactive-source-tracking-eval
      (cider-defun-at-point)
-     (cider-defun-at-point-start-pos)
-     (when prefix (cider-eval-print-handler)))))
+     (cider-defun-at-point-start-pos))))
 
 (defun cider-pprint-eval-defun-at-point ()
   "Evaluate the top-level form at point and pprint its value in a popup buffer."