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 1cf0e11e695f3dcf5fbe87c1d430adf26bbc3053..e9abe5fa26a438ed856bb378faedfe7bc9ec0fd6 100644 (file)
--- 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 0dc5f12eba4c9717841de51135f6a2e77fa0d5ac..1f9ad28cb7833ecba96a920f07716dc02612bac0 100644 (file)
--- 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"))))