mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

remove display-separated.

Browse source 
(build-link): cleanup.
(build-compile): remove space between -I and path.
This commit is contained in:
Han-Wen Nienhuys 2004-10-08 10:22:26 +00:00
parent 23ac14c0c9
commit fbccd84e22
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
guile-config/guile-config.in
View file

@ -151,12 +151,13 @@
(display (string-join (display (string-join
(list (list
(get-build-info 'CFLAGS) (get-build-info 'CFLAGS)
(string-join other-flags)
"-lguile -lguile-ltdl" "-lguile -lguile-ltdl"
(if (or (string=? libdir "/usr/lib") (if (string=? libdir "/usr/lib/")
(string=? libdir "/usr/lib/")) ""
(string-append "-L" (get-build-info 'libdir)) (string-append "-L" (get-build-info 'libdir)))
"")))) (string-join other-flags)
)))
(newline))) (newline)))
@ -185,10 +186,11 @@
;; `-I/usr/include' may cause trouble." For now we hard-code this. ;; `-I/usr/include' may cause trouble." For now we hard-code this.
;; Later maybe we can do something more dynamic. ;; Later maybe we can do something more dynamic.
(display (display
(string-join (string-append
(if (not (string=? (get-build-info 'includedir) "/usr/include")) (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) (get-build-info 'CFLAGS)
"\n" "\n"
))) )))