ob-scheme.el: Fix interpreter output sometimes being nil
* lisp/ob-scheme.el (org-babel-scheme-execute-with-geiser): Fix interpreter output sometimes being nil. Thanks to Vladimir Nikishkin for reporting this and proposing a similar fix.
This commit is contained in:
parent
efd754e474
commit
e01b335ee3
|
@ -177,7 +177,8 @@ is true; otherwise returns the last value."
|
|||
(geiser-debug-show-debug-p nil))
|
||||
(let ((ret (geiser-eval-region (point-min) (point-max))))
|
||||
(setq result (if output
|
||||
(geiser-eval--retort-output ret)
|
||||
(or (geiser-eval--retort-output ret)
|
||||
"Geiser Interpreter produced no output")
|
||||
(geiser-eval--retort-result-str ret "")))))
|
||||
(when (not repl)
|
||||
(save-current-buffer (set-buffer repl-buffer)
|
||||
|
|
Loading…
Reference in New Issue