From 17d1ba2164223242048c6eebd5ebba2b6cf4c83b Mon Sep 17 00:00:00 2001 From: Lockywolf Date: Mon, 19 Aug 2019 23:52:11 +0800 Subject: 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. --- elisp/geiser-chibi.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'elisp') 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") -- cgit v1.2.3