From 818e865db8ee47fc28cd22434e7db330e26c4526 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 1 Jul 2013 23:08:08 +0200 Subject: [PATCH] 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. --- lisp/ob-scheme.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 61aa5484c..f979640a5 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)))))