diff --git a/guile-config/guile-config.in b/guile-config/guile-config.in index 236b39fb9..2faaef652 100644 --- a/guile-config/guile-config.in +++ b/guile-config/guile-config.in @@ -4,7 +4,7 @@ ;;;; guile-config --- utility for linking programs with Guile ;;;; Jim Blandy --- September 1997 ;;;; -;;;; Copyright (C) 1998, 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -148,6 +148,7 @@ ;; do something more dynamic (i.e. what do we need. ;; Display the flags, separated by spaces. + (display-separated (list (get-build-info 'CFLAGS) "")) (if (or (string=? libdir "/usr/lib") (string=? libdir "/usr/lib/")) (display-separated (cons "-lguile -lguile-ltdl" other-flags)) @@ -181,7 +182,8 @@ ;; `-I/usr/include' may cause trouble." For now we hard-code this. ;; Later maybe we can do something more dynamic. (if (not (string=? (get-build-info 'includedir) "/usr/include")) - (display-line "-I" (get-build-info 'includedir)))) + (display-separated (list "-I" (get-build-info 'includedir) ""))) + (display-line (get-build-info 'CFLAGS))) (define (help-compile) (let ((dle display-line-error))