diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-23 15:53:43 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-23 15:53:43 +0200 |
| commit | 46d6d573013661b3266ca3d0bd77b8a26a738eef (patch) | |
| tree | e148c5ed1f55c6db8dd843ba8452e13e819e23da | |
| parent | b08c317b978e14b1b4c1dfd07ccc11f6efccb6d5 (diff) | |
| download | geiser-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.el | 10 |
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) |