From f863988fe1866a6c70e571ef690276c939525961 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 27 Oct 2022 02:35:17 +0100 Subject: 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 aeb719e..87ff1a7 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))))) -- cgit v1.2.3