diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-19 23:52:11 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-08-20 11:49:23 +0800 |
| commit | 17d1ba2164223242048c6eebd5ebba2b6cf4c83b (patch) | |
| tree | e00ff16d941750a6d05c304b987f0d05d5be36d5 /elisp | |
| parent | ab070092b1bc05b97825404c100f3da864e2d5ae (diff) | |
| download | geiser-guile-17d1ba2164223242048c6eebd5ebba2b6cf4c83b.tar.gz geiser-guile-17d1ba2164223242048c6eebd5ebba2b6cf4c83b.tar.bz2 | |
Rewrite geiser:eval in order to make it compatible with org-babel.
* Add an additional guard construction to geiser:eval in order to
catch unexpected I/O errors.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-chibi.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-chibi.el b/elisp/geiser-chibi.el index 7108ee1..cee6c75 100644 --- a/elisp/geiser-chibi.el +++ b/elisp/geiser-chibi.el @@ -73,8 +73,7 @@ This function uses `geiser-chibi-init-file' if it exists." (format "(geiser:%s %s)" proc form))))) (defun geiser-chibi--get-module (&optional module) - (cond ((null module) - :f) + (cond ((null module) :f) ((listp module) module) ((stringp module) (condition-case nil @@ -92,7 +91,9 @@ This function uses `geiser-chibi-init-file' if it exists." (format "(import %s)" module)) (defun geiser-chibi--exit-command () "(exit 0)") + ;; + ;; ;;; REPL startup (defconst geiser-chibi-minimum-version "0.7.3") |