From dda82b8fce284d080fd741ff3e9d9ab0ec009a02 Mon Sep 17 00:00:00 2001 From: Matt Birkholz 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