summaryrefslogtreecommitdiff
path: root/elisp/geiser-edit.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-30 04:57:31 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-30 04:57:31 +0200
commit89e1f6444208bc70deeeca765f212296ed11c634 (patch)
tree157946b1656e169664300497becf504f05a1c1b6 /elisp/geiser-edit.el
parentd89131b0ff58fb6d8d12fa0404f2b0d26e964d72 (diff)
downloadgeiser-chez-89e1f6444208bc70deeeca765f212296ed11c634.tar.gz
geiser-chez-89e1f6444208bc70deeeca765f212296ed11c634.tar.bz2
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.
Diffstat (limited to 'elisp/geiser-edit.el')
-rw-r--r--elisp/geiser-edit.el6
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)))