mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +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 09:46:23 +00:00
parent 07b99edbe8
commit 17b8540143
2 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guile-config/ChangeLog
View file

@ -1,3 +1,9 @@
2004-10-08 Han-Wen Nienhuys <hanwen@xs4all.nl>
* guile-config.in: remove display-separated.
(build-link): cleanup.
(build-compile): remove space between -I and path.
2004-09-24 Marius Vollmer <mvo@zagadka.de>
* guile-config.in (build-link, build-compile): Include CFLAGS in

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

@ -148,15 +148,18 @@
;; do something more dynamic (i.e. what do we need.
;; Display the flags, separated by spaces.
(display-separated (list (get-build-info 'CFLAGS) ""))
(if (or (string=? libdir "/usr/lib")
(string=? libdir "/usr/lib/"))
(display-separated (cons "-lguile -lguile-ltdl" other-flags))
(display-separated (cons
(string-append "-L" (get-build-info 'libdir))
(cons "-lguile -lguile-ltdl" other-flags))))
(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))
""))))
(newline)))
(define (help-link)
(let ((dle display-line-error))
(dle "Usage: " program-name " link")
@ -182,7 +185,7 @@
;; `-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-separated (list "-I" (get-build-info 'includedir) "")))
(display (string-append "-I" (get-build-info 'includedir))))
(display-line (get-build-info 'CFLAGS)))
(define (help-compile)
@ -249,14 +252,6 @@
args)
(newline port))
(define (display-separated args)
(if (not (null? args))
(begin
(display (car args))
(for-each
(lambda (arg) (display " ") (display arg))
(cdr args)))))
;;;; the command table