diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-30 04:57:31 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-30 04:57:31 +0200 |
| commit | 89e1f6444208bc70deeeca765f212296ed11c634 (patch) | |
| tree | 157946b1656e169664300497becf504f05a1c1b6 /elisp/geiser-debug.el | |
| parent | d89131b0ff58fb6d8d12fa0404f2b0d26e964d72 (diff) | |
| download | geiser-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-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 42f1dec..9266eb3 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -120,8 +120,8 @@ buffer.") (defun geiser-debug--expand-region (start end all wrap) (let* ((str (buffer-substring-no-properties start end)) (wrapped (if wrap (geiser-debug--wrap-region str) str)) - (code `(:eval ((:ge macroexpand) (quote (:scm ,wrapped)) - ,(if all :t :f)))) + (code `(:eval (:ge macroexpand (quote (:scm ,wrapped)) + ,(if all :t :f)))) (ret (geiser-eval--send/wait code)) (err (geiser-eval--retort-error ret)) (result (geiser-eval--retort-result ret))) |