diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-10-08 10:03:14 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-10-08 10:03:14 +0000 |
commit | 23ac14c0c967ba6571b959a36e4ca10fc5b79eab (patch) | |
tree | ddc14212dbdc609f4d9f8fb50d0b50bd16058e53 | |
parent | 17b854014332292b88c59fa9169b42cc9f01a819 (diff) | |
download | guile-23ac14c0c967ba6571b959a36e4ca10fc5b79eab.tar.gz |
remove display-separated.
(build-link): cleanup.
(build-compile): remove space between -I and path.
-rw-r--r-- | guile-config/guile-config.in | 11 |
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)) |