summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2004-10-08 10:03:14 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2004-10-08 10:03:14 +0000
commit23ac14c0c967ba6571b959a36e4ca10fc5b79eab (patch)
treeddc14212dbdc609f4d9f8fb50d0b50bd16058e53
parent17b854014332292b88c59fa9169b42cc9f01a819 (diff)
downloadguile-23ac14c0c967ba6571b959a36e4ca10fc5b79eab.tar.gz
remove display-separated.
(build-link): cleanup. (build-compile): remove space between -I and path.
-rw-r--r--guile-config/guile-config.in11
1 files changed, 8 insertions, 3 deletions
diff --git a/guile-config/guile-config.in b/guile-config/guile-config.in
index 65fc22214..57a186407 100644
--- a/guile-config/guile-config.in
+++ b/guile-config/guile-config.in
@@ -184,9 +184,14 @@
;; See gcc manual wrt fixincludes. Search for "Use of
;; `-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 (string-append "-I" (get-build-info 'includedir))))
- (display-line (get-build-info 'CFLAGS)))
+ (display
+ (string-join
+ (if (not (string=? (get-build-info 'includedir) "/usr/include"))
+ (string-append "-I" (get-build-info 'includedir))
+ "")
+ (get-build-info 'CFLAGS)
+ "\n"
+ )))
(define (help-compile)
(let ((dle display-line-error))