summaryrefslogtreecommitdiff
path: root/elisp/geiser-impl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 20:29:14 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 20:29:14 +0200
commitc98d51d7a6cce6d7d64c1893f5ece70ed83841f9 (patch)
tree29444dcd447c4ddead70c770d5683106f4e51188 /elisp/geiser-impl.el
parent8cbee770fd943323297de29f6ae11541a2b63a0b (diff)
downloadgeiser-guile-c98d51d7a6cce6d7d64c1893f5ece70ed83841f9.tar.gz
geiser-guile-c98d51d7a6cce6d7d64c1893f5ece70ed83841f9.tar.bz2
Refactoring.
Diffstat (limited to 'elisp/geiser-impl.el')
-rw-r--r--elisp/geiser-impl.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index f84f90c..e7fb2f8 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -115,6 +115,9 @@ determine its scheme flavour."
(setq geiser-active-implementations
(delq impl geiser-active-implementations)))
+(defsubst geiser-impl--active-p (impl)
+ (memq impl geiser-active-implementations))
+
;;; Defining implementations: