Index: batch-driver.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/batch-driver.scm,v retrieving revision 1.1.1.7 diff -u -r1.1.1.7 batch-driver.scm --- batch-driver.scm 31 Mar 2003 16:46:55 -0000 1.1.1.7 +++ batch-driver.scm 16 Apr 2003 00:02:31 -0000 @@ -70,7 +70,7 @@ topological-sort print-version print-usage initialize-analysis-database product copyright compiler-features default-declarations units-used-by-default words-per-flonum default-debugging-declarations default-profiling-declarations default-optimization-passes compressed-literals-initializer - foreign-string-result-reserve parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument chop-separator chop-extension display-real-name-table display-line-number-database generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration @@ -100,7 +100,7 @@ (symbol->string oname) oname) ) ) ] [(memq 'to-stdout options) #f] - [else default-output-filename] ) ] + [else (string-append (pathname-file filename) ".c")] ) ] [home (chop-separator (or (getenv "CHICKEN_HOME") default-installation-home ""))] [ipath (map chop-separator (string-split (or (getenv "CHICKEN_INCLUDE_PATH") "") ";"))] [strict (memq 'strict options)] Index: c-backend.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/c-backend.scm,v retrieving revision 1.1.1.7 diff -u -r1.1.1.7 c-backend.scm --- c-backend.scm 31 Mar 2003 16:46:54 -0000 1.1.1.7 +++ c-backend.scm 16 Apr 2003 00:04:10 -0000 @@ -67,7 +67,7 @@ topological-sort print-version print-usage initialize-analysis-database generate-external-variables real-name real-name2 product copyright compiler-features default-declarations units-used-by-default words-per-flonum - foreign-string-result-reserve parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument default-optimization-iterations generate-foreign-callback-header generate-foreign-callback-stub-prototypes generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration Index: c-platform.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/c-platform.scm,v retrieving revision 1.1.1.7 diff -u -r1.1.1.7 c-platform.scm --- c-platform.scm 31 Mar 2003 16:46:54 -0000 1.1.1.7 +++ c-platform.scm 16 Apr 2003 00:06:10 -0000 @@ -65,7 +65,7 @@ pprint-expressions-to-file foreign-type-check estimate-foreign-result-size scan-used-variables scan-free-variables topological-sort print-version print-usage initialize-analysis-database product copyright compiler-features default-declarations default-debugging-declarations units-used-by-default words-per-flonum - parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument target-include-file default-profiling-declarations default-optimization-passes internal-bindings @@ -117,7 +117,6 @@ (define words-per-flonum 4) (define parameter-limit 1024) (define small-parameter-limit 128) -(define default-output-filename "out.c") (define eq-inline-operator "C_eqp") (define optimizable-rest-argument-operators '(car cadr caddr cadddr length pair? null? list-ref)) Index: chicken.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/chicken.scm,v retrieving revision 1.1.1.5 diff -u -r1.1.1.5 chicken.scm --- chicken.scm 31 Mar 2003 16:46:54 -0000 1.1.1.5 +++ chicken.scm 16 Apr 2003 00:07:46 -0000 @@ -33,7 +33,7 @@ ; Germany -(declare (uses extras srfi-1 match-support syntax-case srfi-4 support compiler optimizer driver platform backend)) +(declare (uses extras srfi-1 match-support syntax-case srfi-4 support compiler optimizer driver platform backend script-utils)) #{compiler @@ -65,7 +65,7 @@ pprint-expressions-to-file foreign-type-check estimate-foreign-result-size scan-used-variables scan-free-variables topological-sort print-version print-usage initialize-analysis-database product copyright compiler-features default-declarations units-used-by-default words-per-flonum - foreign-string-result-reserve parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration foreign-argument-conversion foreign-result-conversion} Index: compiler.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/compiler.scm,v retrieving revision 1.1.1.6 diff -u -r1.1.1.6 compiler.scm --- compiler.scm 31 Mar 2003 16:46:54 -0000 1.1.1.6 +++ compiler.scm 16 Apr 2003 00:09:16 -0000 @@ -276,7 +276,7 @@ estimate-foreign-result-location-size compressed-literals-initializer expand-foreign-callback-lambda default-optimization-passes default-optimization-passes-when-trying-harder product copyright compiler-features units-used-by-default words-per-flonum - parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument make-random-name final-foreign-type real-name-table real-name set-real-name! location-pointer-map literal-compression-threshold compressed-literals compressable-literal Index: optimizer.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/optimizer.scm,v retrieving revision 1.1.1.5 diff -u -r1.1.1.5 optimizer.scm --- optimizer.scm 31 Mar 2003 16:41:27 -0000 1.1.1.5 +++ optimizer.scm 16 Apr 2003 00:10:07 -0000 @@ -68,7 +68,7 @@ topological-sort print-version print-usage initialize-analysis-database expand-foreign-callback-lambda default-optimization-passes default-optimization-passes-when-trying-harder product copyright compiler-features units-used-by-default words-per-flonum - parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument make-random-name final-foreign-type generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration Index: support.scm =================================================================== RCS file: /home/vozzer/cvsroot/chicken/support.scm,v retrieving revision 1.1.1.7 diff -u -r1.1.1.7 support.scm --- support.scm 31 Mar 2003 16:46:54 -0000 1.1.1.7 +++ support.scm 16 Apr 2003 00:11:06 -0000 @@ -68,7 +68,7 @@ topological-sort print-version print-usage initialize-analysis-database estimate-foreign-result-location-size real-name real-name-table set-real-name! real-name2 display-real-name-table display-line-number-database product copyright compiler-features default-declarations units-used-by-default words-per-flonum - foreign-string-result-reserve parameter-limit default-output-filename eq-inline-operator optimizable-rest-argument-operators + foreign-string-result-reserve parameter-limit eq-inline-operator optimizable-rest-argument-operators membership-test-operators membership-unfold-limit valid-compiler-options valid-compiler-options-with-argument default-optimization-iterations chop-separator chop-extension follow-without-loop generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration