[nongnu] elpa/geiser-chicken 616954d 078/102: Fix latest chicken. Add debug level logging. Fixed typo.

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 616954df4732736c0819ba43f609d5cfce44a0d9
Author: Lockywolf <lockywolf@gmail.com>
Commit: Lockywolf <lockywolf@gmail.com>

    Fix latest chicken. Add debug level logging. Fixed typo.
---
 elisp/geiser-chicken.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 1af2afa..dff028f 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -295,12 +295,8 @@ This function uses `geiser-chicken-init-file' if it 
exists."
       (geiser-eval--send/wait load-sequence))))
 
 (defun geiser-chicken5-load ()
-  (let ((source (expand-file-name "chicken/geiser/chicken5.scm" 
geiser-scheme-dir))
-       (suppression-prefix
-         "(define geiser-stdout (current-output-port))(current-output-port 
(make-output-port (lambda a #f) (lambda a #f)))")
-        (suppression-postfix
-         "(current-output-port geiser-stdout)"))
-    (geiser-eval--send/wait (format "%s (load \"%s\") (import geiser) %s" 
suppression-prefix source suppression-postfix))))
+  (let ((source (expand-file-name "chicken/geiser/chicken5.scm" 
geiser-scheme-dir)))
+    (geiser-eval--send/wait (format "(display '((result . t) (output . f))) 
(load \"%s\") (import geiser)"  source))))
 
 (defun geiser-chicken--startup (remote)
   (compilation-setup t)