[nongnu] elpa/geiser-chez f863988fe1 3/4: better compile file verbosity avoidance

[ELPA Syncer]

branch: elpa/geiser-chez
commit f863988fe1866a6c70e571ef690276c939525961
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    better compile file verbosity avoidance
---
 src/geiser/geiser.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index aeb719eef5..87ff1a7497 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -176,8 +176,9 @@
     (let ((scm (if (string? lib) lib (library-source-filename lib))))
       (when scm
         (let ((obj (obj-file-name scm)))
-          (parameterize ([current-directory (file-directory scm)])
-            (with-output-to-string (lambda () (maybe-compile-file scm obj)))
+          (parameterize ([current-directory (file-directory scm)]
+                         [compile-file-message #f])
+            (compile-file scm obj)
             (load obj)))
         (for-each compile-and-load (reverse-deps lib)))))