Re: [Chicken-hackers] [PATCH] csc.scm: properly handle -output-file

[Felix]

From: Mario Domenech Goulart <address@hidden>
Subject: [Chicken-hackers] [PATCH] csc.scm: properly handle -output-file
Date: Wed, 22 Aug 2012 18:00:49 -0400

> Hi,
> 
> The attached patch fixes #903 (csc ignores -output-file).  See
> http://bugs.call-cc.org/ticket/903

May I suggest the attached variant? Your patch still passes -output-file
to the "chicken" executable, but that isn't necessary.


cheers,
felix

diff --git a/csc.scm b/csc.scm
index 7aca745..5c49972 100644
--- a/csc.scm
+++ b/csc.scm
@@ -147,7 +147,7 @@
     -no-procedure-checks-for-toplevel-bindings))
 
 (define-constant complex-options
-  '(-debug -output-file -heap-size -nursery -stack-size -compiler -unit -uses 
-keyword-style
+  '(-debug -heap-size -nursery -stack-size -compiler -unit -uses -keyword-style
     -optimize-level -include-path -database-size -extend -prelude -postlude 
-prologue -epilogue 
     -inline-limit -profile-name
     -emit-inline-file -types -emit-type-file
@@ -666,7 +666,7 @@ EOF
                (when osx 
                  (set! link-options (cons* "-framework" (car rest) 
link-options)) )
                (set! rest (cdr rest)) ]
-              [(-o)
+              [(-o -output-file)
                (check s rest)
                (let ([fn (car rest)])
                  (set! rest (cdr rest))