~ chicken-core (master) 59926ffe6928530a683be56009efc78cdcf66e90

commit 59926ffe6928530a683be56009efc78cdcf66e90
Author:     Evan Hanson <evhan@thunktastic.com>
AuthorDate: Thu Oct 11 22:31:36 2012 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Oct 13 09:41:48 2012 +0200

    respect -output-file option when compiling from stdin
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/csc.scm b/csc.scm
index b0a94b42..b067c4e1 100644
--- a/csc.scm
+++ b/csc.scm
@@ -728,8 +728,9 @@ EOF
 	  	(set! rest (cdr rest)) ]
 	       [(-host) #f]
 	       [(-) 
-		(set! target-filename (make-pathname #f "a" executable-extension))
-		(set! scheme-files (append scheme-files '("-")))]
+		(set! scheme-files (append scheme-files '("-")))
+		(unless target-filename
+		  (set! target-filename (make-pathname #f "a" executable-extension)))]
 	       [else
 		(when (eq? s '-to-stdout) 
 		  (set! to-stdout #t)