From 11e13d1bd7340f4f6baa059cb21f953771a09f58 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 13 Mar 2009 02:02:40 +0100 Subject: Module documentation command works again when invoked from the REPL. --- elisp/geiser-impl.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index b50f7be..4f70b29 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -100,21 +100,25 @@ (when (geiser-impl--fboundp imp name) (apply (geiser-impl--value imp name t) args))) -(defun geiser-impl--install-eval (imp) - (setq geiser-eval--get-module-function - (geiser-impl--sym imp "get-module") - geiser-eval--geiser-procedure-function - (geiser-impl--sym imp "geiser-procedure"))) +(defsubst geiser-impl--module-function (impl) + (geiser-impl--sym impl "get-module")) + +(defsubst geiser-impl--geiser-procedure-function (impl) + (geiser-impl--sym imp "geiser-procedure")) + +(defun geiser-impl--install-eval (impl) + (setq geiser-eval--get-module-function (geiser-impl--module-function impl)) + (setq geiser-eval--geiser-procedure-function + (geiser-impl--geiser-procedure-function impl))) ;;; Evaluating Elisp in a given implementation context: (defun with--geiser-implementation (imp thunk) (let ((geiser-impl--implementation imp) - (geiser-eval--get-module-function - (geiser-impl--sym imp "get-module")) + (geiser-eval--get-module-function (geiser-impl--module-function imp)) (geiser-eval--geiser-procedure-function - (geiser-impl--sym imp "geiser-procedure"))) + (geiser-impl--geiser-procedure-function imp))) (funcall thunk))) (put 'with--geiser-implementation 'lisp-indent-function 1) -- cgit v1.2.3