mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 22:07:49 +00:00
ob-scheme.el (org-babel-scheme-execute-with-geiser): Fix code typo and add declarations
* ob-scheme.el (org-babel-scheme-execute-with-geiser): Fix code typo. Add declarations.
This commit is contained in:
parent
f9be7f3422
commit
818e865db8
|
@ -38,7 +38,16 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(require 'ob)
|
(require 'ob)
|
||||||
(load-library "geiser-impl")
|
(require 'geiser nil t)
|
||||||
|
(defvar geiser-repl--repl) ; Defined in geiser-repl.el
|
||||||
|
(defvar geiser-impl--implementation) ; Defined in geiser-impl.el
|
||||||
|
(defvar geiser-default-implementation) ; Defined in geiser-impl.el
|
||||||
|
(defvar geiser-active-implementations) ; Defined in geiser-impl.el
|
||||||
|
|
||||||
|
(declare-function run-geiser "geiser-repl" (impl))
|
||||||
|
(declare-function geiser-mode "geiser-mode" ())
|
||||||
|
(declare-function geiser-eval-region "geiser-mode" (start end &optional and-go raw nomsg))
|
||||||
|
(declare-function geiser-repl-exit "geiser-repl" (&optional arg))
|
||||||
|
|
||||||
(defvar org-babel-default-header-args:scheme '()
|
(defvar org-babel-default-header-args:scheme '()
|
||||||
"Default header arguments for scheme code blocks.")
|
"Default header arguments for scheme code blocks.")
|
||||||
|
@ -126,7 +135,7 @@ is true; otherwise returns the last value."
|
||||||
(org-babel-scheme-get-repl impl repl))))
|
(org-babel-scheme-get-repl impl repl))))
|
||||||
(when (not (eq impl (org-babel-scheme-get-buffer-impl
|
(when (not (eq impl (org-babel-scheme-get-buffer-impl
|
||||||
(current-buffer))))
|
(current-buffer))))
|
||||||
(message "Implementation mismatch: %s (%s) %s (s)" impl (symbolp impl)
|
(message "Implementation mismatch: %s (%s) %s (%s)" impl (symbolp impl)
|
||||||
(org-babel-scheme-get-buffer-impl (current-buffer))
|
(org-babel-scheme-get-buffer-impl (current-buffer))
|
||||||
(symbolp (org-babel-scheme-get-buffer-impl
|
(symbolp (org-babel-scheme-get-buffer-impl
|
||||||
(current-buffer)))))
|
(current-buffer)))))
|
||||||
|
|
Loading…
Reference in a new issue