diff options
author | Bastien Guerry <bzg@altern.org> | 2013-07-01 23:08:08 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-07-01 23:08:08 +0200 |
commit | 818e865db8ee47fc28cd22434e7db330e26c4526 (patch) | |
tree | 5297e57727412d15ca4358f88d6baa212bf8a3ea | |
parent | f9be7f342238aefae2353a43921e5209bf9e6412 (diff) | |
download | org-mode-818e865db8ee47fc28cd22434e7db330e26c4526.tar.gz |
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.
-rw-r--r-- | lisp/ob-scheme.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 61aa548..f979640 100644 --- a/lisp/ob-scheme.el +++ b/lisp/ob-scheme.el @@ -38,7 +38,16 @@ ;;; Code: (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 '() "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)))) (when (not (eq impl (org-babel-scheme-get-buffer-impl (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)) (symbolp (org-babel-scheme-get-buffer-impl (current-buffer))))) |