From: Matt Birkholz Date: Tue, 26 Apr 2011 17:48:28 +0000 (-0700) Subject: Turned off c-include-noisily? by default. X-Git-Tag: 20110426-Gtk~1^2 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dda82b8fce284d080fd741ff3e9d9ab0ec009a02;p=mit-scheme.git Turned off c-include-noisily? by default. Turned it on in the FFI generator. Use it to suppress the "Loading gtk-types.bin..." notifications when compiling files that c-include. --- diff --git a/src/ffi/cdecls.scm b/src/ffi/cdecls.scm index 1cf0e11e6..e9abe5fa2 100644 --- a/src/ffi/cdecls.scm +++ b/src/ffi/cdecls.scm @@ -59,10 +59,11 @@ USA. (cwd (if load/loading? (directory-pathname (current-load-pathname)) (working-directory-pathname)))) - (include-cdecl-file library cwd cwd includes) + (fluid-let ((c-include-noisily? #t)) + (include-cdecl-file library cwd cwd includes)) includes)) -(define c-include-noisily? #t) +(define c-include-noisily? #f) (define current-filename) (define (include-cdecl-file filename cwd twd includes) diff --git a/src/ffi/syntax.scm b/src/ffi/syntax.scm index 0dc5f12eb..1f9ad28cb 100644 --- a/src/ffi/syntax.scm +++ b/src/ffi/syntax.scm @@ -66,8 +66,8 @@ USA. (name (pathname-name lib)) (const (pathname-new-name lib (string-append name "-const"))) (types (pathname-new-name lib (string-append name "-types"))) - (includes (fasload types)) - (comment (fasload const)) + (includes (fasload types (not c-include-noisily?))) + (comment (fasload const (not c-include-noisily?))) (enums.struct-values (if (comment? comment) (comment-expression comment) (error:wrong-type-datum comment "a fasl comment"))))