diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-10-08 10:22:26 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2004-10-08 10:22:26 +0000 |
commit | fbccd84e22a3374f6eb5ebd739b6cf5382158e2d (patch) | |
tree | 9706eb5b4db77600278710639a8b58bb85cccef4 | |
parent | 23ac14c0c967ba6571b959a36e4ca10fc5b79eab (diff) | |
download | guile-fbccd84e22a3374f6eb5ebd739b6cf5382158e2d.tar.gz |
remove display-separated.
(build-link): cleanup.
(build-compile): remove space between -I and path.
-rw-r--r-- | guile-config/guile-config.in | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guile-config/guile-config.in b/guile-config/guile-config.in index 57a186407..553b1b9c2 100644 --- a/guile-config/guile-config.in +++ b/guile-config/guile-config.in @@ -151,12 +151,13 @@ (display (string-join (list (get-build-info 'CFLAGS) - (string-join other-flags) "-lguile -lguile-ltdl" - (if (or (string=? libdir "/usr/lib") - (string=? libdir "/usr/lib/")) - (string-append "-L" (get-build-info 'libdir)) - "")))) + (if (string=? libdir "/usr/lib/") + "" + (string-append "-L" (get-build-info 'libdir))) + (string-join other-flags) + + ))) (newline))) @@ -185,10 +186,11 @@ ;; `-I/usr/include' may cause trouble." For now we hard-code this. ;; Later maybe we can do something more dynamic. (display - (string-join + (string-append (if (not (string=? (get-build-info 'includedir) "/usr/include")) - (string-append "-I" (get-build-info 'includedir)) - "") + (string-append "-I" (get-build-info 'includedir) " ") + " ") + (get-build-info 'CFLAGS) "\n" ))) |