X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/271672fad74cdbc9065d23d6e6cee1b8540f571b..5155144bd4cece3bab200a0eb613ffcdef523202:/lisp/org/ob-scheme.el diff --git a/lisp/org/ob-scheme.el b/lisp/org/ob-scheme.el index f979640a5a..685fa01b63 100644 --- a/lisp/org/ob-scheme.el +++ b/lisp/org/ob-scheme.el @@ -1,8 +1,9 @@ ;;; ob-scheme.el --- org-babel functions for Scheme -;; Copyright (C) 2010-2013 Free Software Foundation, Inc. +;; Copyright (C) 2010-2016 Free Software Foundation, Inc. -;; Authors: Eric Schulte, Michael Gauland +;; Authors: Eric Schulte +;; Michael Gauland ;; Keywords: literate programming, reproducible research, scheme ;; Homepage: http://orgmode.org @@ -44,10 +45,11 @@ (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)) +(declare-function run-geiser "ext:geiser-repl" (impl)) +(declare-function geiser-mode "ext:geiser-mode" ()) +(declare-function geiser-eval-region "ext:geiser-mode" + (start end &optional and-go raw nomsg)) +(declare-function geiser-repl-exit "ext:geiser-repl" (&optional arg)) (defvar org-babel-default-header-args:scheme '() "Default header arguments for scheme code blocks.") @@ -108,7 +110,7 @@ For a named session, the buffer name will be the session name. If the session is unnamed (nil), generate a name. -If the session is 'none', use nil for the session name, and +If the session is `none', use nil for the session name, and org-babel-scheme-execute-with-geiser will use a temporary session." (let ((result (cond ((not name)