Elisp: more flexible parsing of :eval and :ge forms

This allows the implementation decide the concrete structure of the
code sent to the REPL. For instance, it doesn't need to be a single
s-expression, and argument order can be re-arranged.

1 files changed, 3 insertions, 3 deletions

diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 409e783..cebcb47 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -193,7 +193,7 @@ or following links in error buffers.")
    (list (geiser-completion--read-symbol "Edit symbol: "
                                          nil
                                          geiser-edit--symbol-history)))
-  (let ((cmd `(:eval ((:ge symbol-location) ',symbol))))
+  (let ((cmd `(:eval (:ge symbol-location ',symbol))))
     (geiser-edit--try-edit symbol (geiser-eval--send/wait cmd) method)
     (when marker (ring-insert find-tag-marker-ring marker))))
 
@@ -203,7 +203,7 @@ With prefix, asks for the symbol to edit."
   (interactive "P")
   (let* ((symbol (or (and (not arg) (symbol-at-point))
                      (geiser-completion--read-symbol "Edit symbol: ")))
-         (cmd `(:eval ((:ge symbol-location) ',symbol)))
+         (cmd `(:eval (:ge symbol-location ',symbol)))
          (marker (point-marker)))
     (geiser-edit--try-edit symbol (geiser-eval--send/wait cmd))
     (when marker (ring-insert find-tag-marker-ring marker))))
@@ -218,7 +218,7 @@ With prefix, asks for the symbol to edit."
 (defun geiser-edit-module (module &optional method)
   "Asks for a module and opens it in a new buffer."
   (interactive (list (geiser-completion--read-module)))
-  (let ((cmd `(:eval ((:ge module-location) (:module ,module)))))
+  (let ((cmd `(:eval (:ge module-location (:module ,module)))))
     (geiser-edit--try-edit module (geiser-eval--send/wait cmd) method)))