[fix] defun region to string for eval & expand

1 files changed, 8 insertions, 2 deletions

diff --git a/trident-mode.el b/trident-mode.el
index d2da9c4..033cf90 100644
--- a/trident-mode.el
+++ b/trident-mode.el
@@ -298,7 +298,10 @@ destination it's overwritten."
 (defun trident-expand-defun ()
   "Display the expansion of the current toplevel form."
   (interactive)
-  (trident-expand (sly-region-for-defun-at-point)))
+  (thread-last
+    (sly-region-for-defun-at-point)
+    (apply #'buffer-substring-no-properties)
+    (trident-expand)))
 
 (defun trident-expand-region (beg end)
   "Display the expansion of the currently active region.
@@ -364,7 +367,10 @@ Print value into the current buffer."
 (defun trident-eval-defun ()
   "Evaluate the current toplevel form as Parenscript."
   (interactive)
-  (trident-eval (sly-region-for-defun-at-point)))
+  (thread-last
+    (sly-region-for-defun-at-point)
+    (apply #'buffer-substring-no-properties)
+    (trident-eval)))
 
 (defun trident-eval-region (beg end)
   "Evaluate the currently active region as Parenscript.