From c2ab898653f9bce6cc6cbfc9e8cbcd19325496d1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= <mgrabmue@cs.tu-berlin.de>
Date: Mon, 5 Mar 2001 14:26:55 +0000
Subject: [PATCH] 	* guile-config.in (build-link): Fixed duplicate
 binding bug 	reported by Ralf Mattes.

---
 guile-config/guile-config.in | 50 ++++++++++++++++++------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/guile-config/guile-config.in b/guile-config/guile-config.in
index 0e917889c..6bb8c1e59 100644
--- a/guile-config/guile-config.in
+++ b/guile-config/guile-config.in
@@ -140,36 +140,36 @@
        (string-append program-name
 		      " link: arguments to subcommand not yet implemented")))
 
-  (let* ((flags
-	  (let loop ((libs
-		      ;; Get the string of linker flags we used to build
-		      ;; Guile, and break it up into a list.
-		      (separate-fields-discarding-char #\space
-						       (get-build-info 'LIBS)
-						       list)))
+  (let ((flags
+	 (let loop ((libs
+		     ;; Get the string of linker flags we used to build
+		     ;; Guile, and break it up into a list.
+		     (separate-fields-discarding-char #\space
+						      (get-build-info 'LIBS)
+						      list)))
 
-	    (cond
-	     ((null? libs) '())
+	   (cond
+	    ((null? libs) '())
 
-	     ;; Turn any "FOO/libBAR.a" elements into "-lBAR".
-	     ((match-lib (car libs))
-	      => (lambda (bar)
-		   (cons (string-append "-l" bar)
-			 (loop (cdr libs)))))
-
-	     ;; Remove any empty strings that may have seeped in there.
-	     ((string=? (car libs) "") (loop (cdr libs)))
+	    ;; Turn any "FOO/libBAR.a" elements into "-lBAR".
+	    ((match-lib (car libs))
+	     => (lambda (bar)
+		  (cons (string-append "-l" bar)
+			(loop (cdr libs)))))
 	    
-	     (else (cons (car libs) (loop (cdr libs)))))))
+	    ;; Remove any empty strings that may have seeped in there.
+	    ((string=? (car libs) "") (loop (cdr libs)))
+	    
+	     (else (cons (car libs) (loop (cdr libs))))))))
 
-	 ;; Include libguile itself in the list, along with the
-	 ;; directory it was installed in.
-	 (flags (cons (string-append "-L" (get-build-info 'libdir))
-		      (cons "-lguile" flags))))
+    ;; Include libguile itself in the list, along with the
+    ;; directory it was installed in.
+    (let (flags (cons (string-append "-L" (get-build-info 'libdir))
+		      (cons "-lguile" flags)))
 
-    ;; Display the flags, separated by spaces.
-    (display-separated flags)
-    (newline)))
+      ;; Display the flags, separated by spaces.
+      (display-separated flags)
+      (newline))))
 
 (define (help-link)
   (let ((dle display-line-error))