branch: elpa/geiser-chicken
commit 616954df4732736c0819ba43f609d5cfce44a0d9
Author: Lockywolf <[email protected]>
Commit: Lockywolf <[email protected]>
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)
