>From 228f8454d197b46b460a1b9ebfda7fa08d546c17 Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Thu, 11 Oct 2012 22:31:36 -0500
Subject: [PATCH] respect -output-file option when compiling from stdin

---
 csc.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/csc.scm b/csc.scm
index b0a94b4..b067c4e 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)
-- 
1.7.12.1