diff options
Diffstat (limited to 'src/geiser')
| -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))))) |