[nongnu] elpa/geiser-chicken d83d2df 009/102: Now suppress loading messages

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit d83d2dffc817659605651c6af95af00601beba1d
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    Now suppress loading messages
    
    Chicken won't become available to Geiser until it's actually done
    loading. A number of bugs are related to this, including jaor/geiser#68
    but also some quizzically flaky completion behaviour.
    
    The fix is to suppress output to STDOUT until Chicken is ready; output
    to STDERR is not suppressed, so if bad things happen it will still
    appear in the geiser messages buffer.
    
    This may fix jaor/geiser#68
---
 elisp/geiser-chicken.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index d5cda6d..6e7d1bf 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -268,7 +268,15 @@ This function uses `geiser-chicken-init-file' if it 
exists."
   (let ((geiser-log-verbose-p t)
         (geiser-chicken-load-file (expand-file-name "chicken/geiser/emacs.scm" 
geiser-scheme-dir)))
     (if geiser-chicken-compile-geiser-p
-      (geiser-eval--send/wait (format "(use utils)(compile-file \"%s\")(import 
geiser)"
+      (geiser-eval--send/wait (format "
+;; Sadly, (use import compile-file) must be run at top-level, so we have a 
stdout binding
+(define geiser-stdout (current-output-port))
+(current-output-port (make-output-port (lambda a #f) (lambda a #f)))
+(use utils)
+(compile-file \"%s\")
+(import geiser)
+(current-output-port geiser-stdout)
+"
                                       geiser-chicken-load-file))
       (geiser-eval--send/wait (format "(load \"%s\")"
                                       geiser-chicken-load-file)))))