From b3821d8d826ffe571e2f53f24209aefc70a8d10b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 8 Aug 2007 17:38:53 +0000
Subject: [PATCH] change dynext linker search to gcc;cc instead of just cc

svn: r7059
---
 collects/dynext/link-unit.ss | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/collects/dynext/link-unit.ss b/collects/dynext/link-unit.ss
index e9b3a94697..0e06fa0363 100644
--- a/collects/dynext/link-unit.ss
+++ b/collects/dynext/link-unit.ss
@@ -27,15 +27,17 @@
 	    (find-executable-path "ilink32.exe" #f)))
 
       (define (get-unix-linker)
-	(let ([s (case (string->symbol (path->string (system-library-subpath #f)))
+	(let ([l (case (string->symbol (path->string (system-library-subpath #f)))
                    [(sparc-solaris i386-solaris 
                                    sparc-sunos4
                                    i386-freebsd-2.x
                                    parisc-hpux
                                    i386-cygwin)
-                    "ld"]
-		   [else "cc"])])
-	  (find-executable-path s s)))
+                    '("ld")]
+		   [else '("gcc" "cc")])])
+          (ormap (lambda (s)
+                   (find-executable-path s #f))
+                 l)))
       
       (define (check-valid-linker-path v)
 	(unless (and (file-exists? v)