This patch fixes ticket #928, where compiling from standard input
ignores the user-specified -output-file name, if given.

Evan
>From 228f8454d197b46b460a1b9ebfda7fa08d546c17 Mon Sep 17 00:00:00 2001
From: Evan Hanson <[email protected]>
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

_______________________________________________
Chicken-hackers mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-hackers

Reply via email to