~ chicken-core (master) 14fa9f4e2e3d6821054d2a0b25df58f3a48ee59a

commit 14fa9f4e2e3d6821054d2a0b25df58f3a48ee59a
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Feb 26 13:45:05 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Feb 26 13:45:05 2010 +0100

    -rpath should not be effective on windows

diff --git a/csc.scm b/csc.scm
index 2c32e381..99a76859 100644
--- a/csc.scm
+++ b/csc.scm
@@ -187,6 +187,7 @@
 (define gui #f)
 (define deploy #f)
 (define deployed #f)
+(define rpath #f)
 
 (define extra-libraries
   (if host-mode
@@ -723,8 +724,10 @@ EOF
 		(use-unsafe-libraries) ]
 	       [(-rpath)
 		(check s rest)
-		(when (memq (build-platform) '(gnu clang))
-		  (set! link-options (append link-options (list (string-append "-Wl,-R" (car rest)))))
+		(set! rpath (car rest))
+		(when (and (memq (build-platform) '(gnu clang))
+			   (not mingw))
+		  (set! link-options (append link-options (list (string-append "-Wl,-R" rpath))))
 		  (set! rest (cdr rest)) ) ]
 	       [(-host) #f]
 	       [(-)