|
@@ -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)
|
|
|
|