~ chicken-core (chicken-5) ddd69e0a8514ba8998ed896535b541b032b4a7a6

commit ddd69e0a8514ba8998ed896535b541b032b4a7a6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Apr 10 12:33:23 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Apr 10 12:33:23 2012 +0200

    Revert "this will never be fully correct"
    
    This reverts commit bcb76e2997f8ec631a1a0f081980808d857eec15.

diff --git a/c-platform.scm b/c-platform.scm
index 9894ba7a..d502dc0d 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -90,7 +90,7 @@
     analyze-only dynamic scrutinize no-argc-checks no-procedure-checks
     no-procedure-checks-for-toplevel-bindings module
     no-bound-checks no-procedure-checks-for-usual-bindings no-compiler-syntax
-    no-parenthesis-synonyms no-symbol-escape r5rs-syntax emit-all-import-libraries
+    no-parentheses-synonyms no-symbol-escape r5rs-syntax emit-all-import-libraries
     strict-types clustering
     lambda-lift unboxing		; OBSOLETE
     setup-mode no-module-registration) )
@@ -100,6 +100,7 @@
     output-file include-path heap-size stack-size unit uses keyword-style require-extension 
     inline-limit profile-name 
     disable-warning			; OBSOLETE
+    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/csc.scm b/csc.scm
index 8b7f1e3f..3ba50075 100644
--- a/csc.scm
+++ b/csc.scm
@@ -334,7 +334,7 @@ Usage: #{csc} FILENAME | OPTION ...
     -i -case-insensitive           don't preserve case of read symbols    
     -K -keyword-style STYLE        enable alternative keyword-syntax
                                     (prefix, suffix or none)
-       -no-parenthesis-synonyms    disables list delimiter synonyms
+       -no-parentheses-synonyms    disables list delimiter synonyms
        -no-symbol-escape           disables support for escaped symbols
        -r5rs-syntax                disables the Chicken extensions to
                                     R5RS syntax
diff --git a/csi.scm b/csi.scm
index 2a45b771..de17b74f 100644
--- a/csi.scm
+++ b/csi.scm
@@ -113,7 +113,7 @@ EOF
     -w  -no-warnings              disable all warnings
     -K  -keyword-style STYLE      enable alternative keyword-syntax
                                    (prefix, suffix or none)
-        -no-parenthesis-synonyms  disables list delimiter synonyms
+        -no-parentheses-synonyms  disables list delimiter synonyms
         -no-symbol-escape         disables support for escaped symbols
         -r5rs-syntax              disables the Chicken extensions to
                                    R5RS syntax
@@ -937,7 +937,7 @@ EOF
 
 (define-constant long-options
   '("-ss" "-sx" "-script" "-version" "-help" "--help" "-feature" "-no-feature" "-eval"
-    "-case-insensitive" "-keyword-style" "-no-parenthesis-synonyms" "-no-symbol-escape"
+    "-case-insensitive" "-keyword-style" "-no-parentheses-synonyms" "-no-symbol-escape"
     "-r5rs-syntax" "-setup-mode"
     "-require-extension" "-batch" "-quiet" "-no-warnings" "-no-init" 
     "-include-path" "-release" "-print" "-pretty-print" "--") )
@@ -968,7 +968,7 @@ EOF
 (define-constant simple-options
   '("--" "-b" "-batch" "-q" "-quiet" "-n" "-no-init" "-w" "-no-warnings" 
     "-i" "-case-insensitive"
-    "-no-parenthesis-synonyms" "-no-symbol-escape" "-r5rs-syntax" "-setup-mode"
+    "-no-parentheses-synonyms" "-no-symbol-escape" "-r5rs-syntax" "-setup-mode"
     ; Not "simple" but processed early
     "-ss" "-sx" "-s" "-script") )
 
@@ -1069,8 +1069,8 @@ EOF
 	       (keyword-style #:none) ]
 	      [(string=? "suffix" (cadr kwstyle))
 	       (keyword-style #:suffix) ] ) )
-      (when (member* '("-no-parenthesis-synonyms") args)
-	(unless quiet (display "Disabled support for parenthesis-synonyms\n"))
+      (when (member* '("-no-parentheses-synonyms") args)
+	(unless quiet (display "Disabled support for parentheses synonyms\n"))
         (parentheses-synonyms #f) )
       (when (member* '("-no-symbol-escape") args)
 	(unless quiet (display "Disabled support for escaped symbols\n"))
diff --git a/support.scm b/support.scm
index aea83c37..8506a885 100644
--- a/support.scm
+++ b/support.scm
@@ -1645,7 +1645,7 @@ Usage: chicken FILENAME OPTION ...
     -case-insensitive            don't preserve case of read symbols
     -keyword-style STYLE         allow alternative keyword syntax
                                   (prefix, suffix or none)
-    -no-parenthesis-synonyms     disables list delimiter synonyms
+    -no-parentheses-synonyms     disables list delimiter synonyms
     -no-symbol-escape            disables support for escaped symbols
     -r5rs-syntax                 disables the Chicken extensions to
                                   R5RS syntax