From dda82b8fce284d080fd741ff3e9d9ab0ec009a02 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 26 Apr 2011 10:48:28 -0700
Subject: [PATCH] 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.
---
src/ffi/cdecls.scm | 5 +++--
src/ffi/syntax.scm | 4 ++--
2 files changed, 5 insertions(+), 4 deletions(-)
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"))))
--
2.25.1