~ chicken-core (chicken-5) db33f6fb8bf1660e46f2db14d212a6d96b9dbd20


commit db33f6fb8bf1660e46f2db14d212a6d96b9dbd20
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 19 04:04:55 2011 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jan 19 04:04:55 2011 -0500

    csc tried to link with chicken.rc.o for -gui on all platforms (reported by ddp)

diff --git a/csc.scm b/csc.scm
index b3d32ad0..e097523d 100644
--- a/csc.scm
+++ b/csc.scm
@@ -627,12 +627,12 @@ EOF
 	       [(-gui)
 		(set! gui #t)
 		(set! compile-options (cons "-DC_GUI" compile-options))
-		(set! object-files 
-		  (cons (make-pathname 
-			 INSTALL_SHARE_HOME "chicken.rc"
-			 object-extension) 
-			object-files))
 		(when mingw
+		  (set! object-files 
+		    (cons (make-pathname 
+			   INSTALL_SHARE_HOME "chicken.rc"
+			   object-extension) 
+			  object-files))
 		  (set! link-options
 		    (cons* "-lkernel32" "-luser32" "-lgdi32" "-mwindows"
 			   link-options)))]
Trap