>From b432e5c709b539073f4824aa9e12d3e49c565d06 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sun, 17 Aug 2014 16:11:15 +0200 Subject: [PATCH 13/19] compiler-modules: Fix -no-parentheses-synonyms flag to compiler. The patch in d31f8ea988425e94745258f174a86fdb2bb06459 was apparently incomplete: it fixed the interpreter's handling of the -no-parentheses-synonyms flag, but this flag was not used by the compiler: it was listed amongst the valid compiler options with arguments, which is wrong, and the batch-driver used it as a no-argument flag, but with a typo in its name, so it would never get used. The version with typo is also used in compiler-namespace. --- NEWS | 3 +++ batch-driver.scm | 6 +++--- c-platform.scm | 3 +-- compiler-namespace.scm | 1 - 4 files changed, 7 insertions(+), 6 deletions(-) diff --git a/NEWS b/NEWS index 7a62752..a51a31b 100644 --- a/NEWS +++ b/NEWS @@ -70,6 +70,9 @@ - When using chicken-install -retrieve, and an error occurs during retrieval (or the egg doesn't exist), the egg's directory is now properly cleaned up (#1109, thanks to Alex Charlton) + - "chicken" + - The compiler option -no-parentheses-synonyms has been fixed. + 4.9.0 diff --git a/batch-driver.scm b/batch-driver.scm index a96444a..8db9c14 100644 --- a/batch-driver.scm +++ b/batch-driver.scm @@ -288,9 +288,9 @@ [(string=? "suffix" val) (keyword-style #:suffix)] [else (quit-compiling "invalid argument to `-keyword-style' option")] ) ) ) - (when (memq 'no-parenthesis-synonyms options) - (dribble "Disabled support for parenthesis synonyms") - (parenthesis-synonyms #f) ) + (when (memq 'no-parentheses-synonyms options) + (dribble "Disabled support for parentheses synonyms") + (parentheses-synonyms #f) ) (when (memq 'no-symbol-escape options) (dribble "Disabled support for escaped symbols") (symbol-escape #f) ) diff --git a/c-platform.scm b/c-platform.scm index afebbbb..841375b 100644 --- a/c-platform.scm +++ b/c-platform.scm @@ -101,7 +101,7 @@ emit-external-prototypes-first release local inline-global analyze-only dynamic scrutinize ; OBSOLETE - no-argc-checks no-procedure-checks + no-argc-checks no-procedure-checks no-parentheses-synonyms no-procedure-checks-for-toplevel-bindings module no-bound-checks no-procedure-checks-for-usual-bindings no-compiler-syntax no-parentheses-synonyms no-symbol-escape r5rs-syntax emit-all-import-libraries @@ -112,7 +112,6 @@ '(debug output-file include-path heap-size stack-size unit uses keyword-style require-extension inline-limit profile-name - parenthesis-synonyms prelude postlude prologue epilogue nursery extend feature no-feature types emit-import-library emit-inline-file static-extension consult-inline-file emit-type-file diff --git a/compiler-namespace.scm b/compiler-namespace.scm index 3fda129..317efbe 100644 --- a/compiler-namespace.scm +++ b/compiler-namespace.scm @@ -44,7 +44,6 @@ inline-substitutions-enabled internal-bindings number-type - parenthesis-synonyms profile-info-vector-name profile-lambda-list standard-bindings -- 1.7.10.4