diff options
| author | jao <jao@gnu.org> | 2022-10-27 02:35:17 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-27 02:35:17 +0100 |
| commit | f863988fe1866a6c70e571ef690276c939525961 (patch) | |
| tree | e7f4c04ee8f14fff0e0fe77473b4e961b3a97333 | |
| parent | 5a422e66155b1e566a4eecef45fc9cf8177c1436 (diff) | |
| download | geiser-chez-f863988fe1866a6c70e571ef690276c939525961.tar.gz geiser-chez-f863988fe1866a6c70e571ef690276c939525961.tar.bz2 | |
better compile file verbosity avoidance
| -rw-r--r-- | src/geiser/geiser.ss | 5 |
1 files 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))))) |