diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 0abac7462..fb7c48bbc 100644 --- a/lisp/ob-scheme.el +++ b/lisp/ob-scheme.el @@ -212,6 +212,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 @@ -225,7 +226,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)