diff options
Diffstat (limited to 'lisp/org/ob-scheme.el')
-rw-r--r-- | lisp/org/ob-scheme.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/org/ob-scheme.el b/lisp/org/ob-scheme.el index 798cf4eb0c3..af5c7f26d6f 100644 --- a/lisp/org/ob-scheme.el +++ b/lisp/org/ob-scheme.el @@ -132,7 +132,7 @@ org-babel-scheme-execute-with-geiser will use a temporary session." (name))) (defmacro org-babel-scheme-capture-current-message (&rest body) - "Capture current message in both interactive and noninteractive mode" + "Capture current message in both interactive and noninteractive mode." `(if noninteractive (let ((original-message (symbol-function 'message)) (current-message nil)) @@ -148,10 +148,11 @@ org-babel-scheme-execute-with-geiser will use a temporary session." (current-message)))) (defun org-babel-scheme-execute-with-geiser (code output impl repl) - "Execute code in specified REPL. If the REPL doesn't exist, create it -using the given scheme implementation. + "Execute code in specified REPL. +If the REPL doesn't exist, create it using the given scheme +implementation. -Returns the output of executing the code if the output parameter +Returns the output of executing the code if the OUTPUT parameter is true; otherwise returns the last value." (let ((result nil)) (with-temp-buffer @@ -199,7 +200,7 @@ Emacs-lisp table, otherwise return the results as a string." (defun org-babel-execute:scheme (body params) "Execute a block of Scheme code with org-babel. -This function is called by `org-babel-execute-src-block'" +This function is called by `org-babel-execute-src-block'." (let* ((source-buffer (current-buffer)) (source-buffer-name (replace-regexp-in-string ;; zap surrounding * "^ ?\\*\\([^*]+\\)\\*" "\\1" |