From f7b0277b1de47305dbfaeab614cd4530e07921c1 Mon Sep 17 00:00:00 2001 From: Lockywolf Date: Sun, 31 May 2020 12:34:53 +0800 Subject: [PATCH] Add support for geiser-scheme-implementation in ob-scheme.el --- lisp/ob-scheme.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 5ca7f871d..3eee8213d 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 -- 2.26.2