~ chicken-core (chicken-5) 58dbbf68832306b2bce5d40e37afbfc45a6817d2

commit 58dbbf68832306b2bce5d40e37afbfc45a6817d2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 28 08:39:48 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 28 08:39:48 2010 +0200

    use nul: device for try-compile on windows

diff --git a/setup-api.scm b/setup-api.scm
index 0185dd6f..bffd48d7 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -663,7 +663,7 @@
 			   (if compile-only
 			       "" 
 			       (conc "-L" *target-lib-home* " " ldflags " " *target-libs*) )
-			   " >/dev/null "
+			   (if *windows* " >nul: " " >/dev/null ")
 			   (if verb "" "2>&1") ) ) )
 		 (when verb (print cmd " ..."))
 		 cmd) ) ) ) )