diff options
| author | Bastien <bzg@gnu.org> | 2020-02-11 12:19:34 +0100 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2020-02-11 12:19:34 +0100 |
| commit | e01b335ee3f8e58ebc9a15fa3bca62a111b86da4 (patch) | |
| tree | a4db46e0db20ce5f98dcc8c7489680b2456537b1 | |
| parent | efd754e4749da4a31c2301a295ef71daeaf5acc4 (diff) | |
| download | org-mode-e01b335ee3f8e58ebc9a15fa3bca62a111b86da4.tar.gz | |
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.
| -rw-r--r-- | lisp/ob-scheme.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el index 7c36ab5..5ca7f87 100644 --- a/lisp/ob-scheme.el +++ b/lisp/ob-scheme.el @@ -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) |