mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 07:00:23 +02:00
Code Activity

guile-config: Show -L$libdir' before -lguile'.

Browse source
This commit is contained in:
Ludovic Courtès 2008-06-02 21:47:41 +02:00
parent c4df2cca63
commit 787abee8d3
3 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
NEWS
View file

@ -14,6 +14,7 @@ Changes in 1.8.6 (since 1.8.5)
This makes these internal functions technically not callable from This makes these internal functions technically not callable from
application code. application code.
** `guile-config link' now prints `-L$libdir' before `-lguile'
** Fix build issue on Tru64 ** Fix build issue on Tru64

5
guile-config/ChangeLog
View file

@ -1,3 +1,8 @@
2008-06-02 Ludovic Courtès <ludo@gnu.org>
* guile-config.in (build-link): Show `-L' before `-lguile'.
Reported by Peter O'Gorman <pogma@thewrittenword.com>.
2008-01-22 Neil Jerram <neil@ossau.uklinux.net> 2008-01-22 Neil Jerram <neil@ossau.uklinux.net>
* COPYING: Removed. * COPYING: Removed.

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

@ -4,7 +4,7 @@
;;;; guile-config --- utility for linking programs with Guile ;;;; guile-config --- utility for linking programs with Guile
;;;; Jim Blandy <jim@red-bean.com> --- September 1997 ;;;; Jim Blandy <jim@red-bean.com> --- September 1997
;;;; ;;;;
;;;; Copyright (C) 1998, 2001, 2004, 2005, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 1998, 2001, 2004, 2005, 2006, 2008 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -151,11 +151,11 @@
(display (string-join (display (string-join
(list (list
(get-build-info 'CFLAGS) (get-build-info 'CFLAGS)
"-lguile -lltdl"
(if (or (string=? libdir "/usr/lib") (if (or (string=? libdir "/usr/lib")
(string=? libdir "/usr/lib/")) (string=? libdir "/usr/lib/"))
"" ""
(string-append "-L" (get-build-info 'libdir))) (string-append "-L" (get-build-info 'libdir)))
"-lguile -lltdl"
(string-join other-flags) (string-join other-flags)
))) )))