From ab070092b1bc05b97825404c100f3da864e2d5ae Mon Sep 17 00:00:00 2001
From: Lockywolf <lockywolf@gmail.com>
Date: Mon, 19 Aug 2019 13:31:30 +0800
Subject: Add a TODO entry for adding output to erroneous evaluations.

---
 scheme/chibi/geiser/geiser.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/scheme/chibi/geiser/geiser.scm b/scheme/chibi/geiser/geiser.scm
index 20ff2cd..35a52b7 100644
--- a/scheme/chibi/geiser/geiser.scm
+++ b/scheme/chibi/geiser/geiser.scm
@@ -33,7 +33,14 @@
 
 (define (geiser:eval module form . rest)
   rest
-  (guard (err (else (write `((result ,(show #f err))))))
+  (guard (err
+	  (else
+	   ;; TODO:We need to save output when returning errors too. The
+	   ;; output may very well be produced before an error occurs. But to
+	   ;; implement it wisely, we probably need something like two guard
+	   ;; expressions. For example, org-mode's ob-scheme.el needs it.:END
+
+	   (write `((result ,(show #f err))))))
     (let* ((output (open-output-string))
 	   (result (parameterize ((current-output-port output))
 		     (if module
-- 
cgit v1.2.3