mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +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
(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"
)))