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
commit3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1 (patch)
tree732034af1ced75028341e0e780c817a396e4a3a1
parent4bda1c36b7f8cbd202c5511f6707f17ce1399852 (diff)
downloadgeiser-3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1.tar.gz
geiser-3cae2fa03aa86aa4a01b3c950ba2ccebbe03e6f1.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)