diff options
Diffstat (limited to 'lisp/org/ob-scheme.el')
| -rw-r--r-- | lisp/org/ob-scheme.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/org/ob-scheme.el b/lisp/org/ob-scheme.el index 635b3aa6003..21d9fad2b6b 100644 --- a/lisp/org/ob-scheme.el +++ b/lisp/org/ob-scheme.el @@ -112,10 +112,9 @@ (or buffer (progn (run-geiser impl) - (if name - (progn - (rename-buffer name t) - (org-babel-scheme-set-session-buffer name (current-buffer)))) + (when name + (rename-buffer name t) + (org-babel-scheme-set-session-buffer name (current-buffer))) (current-buffer))))) (defun org-babel-scheme-make-session-name (buffer name impl) @@ -214,6 +213,7 @@ This function is called by `org-babel-execute-src-block'." (session (org-babel-scheme-make-session-name source-buffer-name (cdr (assq :session params)) impl)) (full-body (org-babel-expand-body:scheme body params)) + (result-params (cdr (assq :result-params params))) (result (org-babel-scheme-execute-with-geiser full-body ; code @@ -227,7 +227,9 @@ This function is called by `org-babel-execute-src-block'." (cdr (assq :colnames params))) (org-babel-pick-name (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))))) - (org-babel-scheme--table-or-string table)))))) + (org-babel-result-cond result-params + result + (org-babel-scheme--table-or-string table))))))) (provide 'ob-scheme) |