~ chicken-core (chicken-5) b22c5b2a5839f52b5f390735dd1843b9d7e62828

commit b22c5b2a5839f52b5f390735dd1843b9d7e62828
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jul 8 14:54:56 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jul 8 14:54:56 2010 +0200

    features in csc for target language

diff --git a/csc.scm b/csc.scm
index 79631ad9..01a49c62 100644
--- a/csc.scm
+++ b/csc.scm
@@ -576,10 +576,12 @@ EOF
 	       [(-objc) 
 		(set! objc-mode #t) ]
 	       [(-static) 
-		(set! translate-options (cons* "-feature" "chicken-compile-static" translate-options))
+		(set! translate-options
+		  (cons* "-feature" "chicken-compile-static" translate-options))
 		(set! static #t) ]
 	       [(-static-libs) 
-		(set! translate-options (cons* "-feature" "chicken-compile-static" translate-options))
+		(set! translate-options
+		  (cons* "-feature" "chicken-compile-static" translate-options))
 		(set! static-libs #t) ]
 	       [(-cflags)
 		(set! inquiry-only #t) 
@@ -813,6 +815,9 @@ EOF
 		      (append 
 		       extra-features
 		       translate-options 
+		       (cond (cpp-mode '("-feature" "chicken-scheme-to-c++"))
+			     (objc-mode '("-feature" "chicken-scheme-to-objc"))
+			     (else '()))
 		       translation-optimization-options)) ) )
 	 " ") )
        (set! c-files (append (list fc) c-files))