summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-23 15:53:43 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-23 15:53:43 +0200
commit46d6d573013661b3266ca3d0bd77b8a26a738eef (patch)
treee148c5ed1f55c6db8dd843ba8452e13e819e23da
parentb08c317b978e14b1b4c1dfd07ccc11f6efccb6d5 (diff)
downloadgeiser-chez-46d6d573013661b3266ca3d0bd77b8a26a738eef.tar.gz
geiser-chez-46d6d573013661b3266ca3d0bd77b8a26a738eef.tar.bz2
Bug fix: correct generation of per implementation switch-to functions.
-rw-r--r--elisp/geiser-impl.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index f7805f1..c430317 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -141,9 +141,10 @@ determine its scheme flavour."
(unless (symbolp name)
(error "Malformed implementation name: %s" name))
(let ((runner (intern (format "run-%s" name)))
- (switcher (intern (format "switch-%s" name)))
+ (switcher (intern (format "switch-to-%s" name)))
(runner-doc (format "Start a new %s REPL." name))
- (switcher-doc (format "Switch to a running %s REPL, or start one." name)))
+ (switcher-doc (format "Switch to a running %s REPL, or start one." name))
+ (ask (make-symbol "ask")))
`(progn
(geiser-impl--define ,load-file-name ',name ',parent ',methods)
(require 'geiser-repl)
@@ -151,9 +152,10 @@ determine its scheme flavour."
,runner-doc
(interactive)
(run-geiser ',name))
- (defun ,switcher (&optional ask)
+ (defun ,switcher (&optional ,ask)
+ ,switcher-doc
(interactive "P")
- (switch-to-geiser ask ',name))
+ (switch-to-geiser ,ask ',name))
(provide ',(geiser-impl--feature name))))))
(defun geiser-impl--add-to-alist (kind what impl)