summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLockywolf <lockywolf@gmail.com>2020-05-31 12:34:53 +0800
committerBastien Guerry <bzg@bzg.fr>2020-06-08 10:46:08 +0200
commit0eeee1a04a07286c9f1584555b01f9efe9dea4a6 (patch)
tree879a92ba1efd3b17700c92953322af55fb5dfb8d
parent1aa095ccf18f5349874d736aee05130c9ffeec16 (diff)
downloadorg-mode-0eeee1a04a07286c9f1584555b01f9efe9dea4a6.tar.gz
ob-scheme.el: Add support for `geiser-scheme-implementation'
* lisp/ob-scheme.el (geiser-scheme-implementation) (org-babel-execute:scheme): Add support for geiser scheme implementation. TINYCHANGE
-rw-r--r--lisp/ob-scheme.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index 5ca7f87..3eee821 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -43,6 +43,7 @@
(require 'geiser-impl nil t)
(defvar geiser-repl--repl) ; Defined in geiser-repl.el
(defvar geiser-impl--implementation) ; Defined in geiser-impl.el
+(defvar geiser-scheme-implementation) ; Defined in geiser-impl.el
(defvar geiser-default-implementation) ; Defined in geiser-impl.el
(defvar geiser-active-implementations) ; Defined in geiser-impl.el
(defvar geiser-debug-show-debug-p) ; Defined in geiser-debug.el
@@ -211,6 +212,7 @@ This function is called by `org-babel-execute-src-block'."
(let* ((result-type (cdr (assq :result-type params)))
(impl (or (when (cdr (assq :scheme params))
(intern (cdr (assq :scheme params))))
+ geiser-scheme-implementation
geiser-default-implementation
(car geiser-active-implementations)))
(session (org-babel-scheme-make-session-name