~ chicken-core (chicken-5) 9570bbb15e0baf034d3b7b0507d2551afb20c595

commit 9570bbb15e0baf034d3b7b0507d2551afb20c595
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Dec 24 01:18:37 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Dec 24 01:18:37 2009 +0100

    changed -k option in csi to -K (thanks to Mario Goulart)

diff --git a/csi.scm b/csi.scm
index 40900cd0..e89ccf76 100644
--- a/csi.scm
+++ b/csi.scm
@@ -97,7 +97,7 @@ EOF
   (display  #<<EOF
     -b  -batch                    terminate after command-line processing
     -w  -no-warnings              disable all warnings
-    -k  -keyword-style STYLE      enable alternative keyword-syntax
+    -K  -keyword-style STYLE      enable alternative keyword-syntax
                                    (prefix, suffix or none)
         -no-parentheses-synonyms  disables list delimiter synonyms
         -no-symbol-escape         disables support for escaped symbols
@@ -717,13 +717,13 @@ EOF
     "-ss" "-sx" "-s" "-script") )
 
 (define-constant complex-options
-  '("-D" "-feature" "-I" "-include-path" "-k" "-keyword-style") )
+  '("-D" "-feature" "-I" "-include-path" "-K" "-keyword-style") )
 
 (define (run)
   (let* ([extraopts (parse-option-string (or (get-environment-variable "CSI_OPTIONS") ""))]
 	 [args (canonicalize-args (command-line-arguments))]
 	 ; Check for these before 'args' is updated by any 'extraopts'
-	 [kwstyle (member* '("-k" "-keyword-style") args)]
+	 [kwstyle (member* '("-K" "-keyword-style") args)]
 	 [script (member* '("-ss" "-sx" "-s" "-script") args)])
     (cond [script
 	   (when (or (not (pair? (cdr script)))
diff --git a/manual/Using the interpreter b/manual/Using the interpreter
index c8c67fe1..10e558ad 100644
--- a/manual/Using the interpreter	
+++ b/manual/Using the interpreter	
@@ -37,7 +37,7 @@ The options recognized by the interpreter are:
 
 ; -I  -include-path PATHNAME : Specifies an alternative search-path for files included via the {{include}} special form. This option may be given multiple times. If the environment variable {{CHICKEN_INCLUDE_PATH}} is set, it should contain a list of alternative include pathnames separated by {{;}}.
 
-; -k  -keyword-style STYLE : Enables alternative keyword syntax, where {{STYLE}} may be either {{prefix}} (as in Common Lisp) or {{suffix}} (as in DSSSL). Any other value is ignored.
+; -K  -keyword-style STYLE : Enables alternative keyword syntax, where {{STYLE}} may be either {{prefix}} (as in Common Lisp) or {{suffix}} (as in DSSSL). Any other value is ignored.
 
 ; -n  -no-init : Do not load initialization-file. If this option is not given and the file {{./.csirc}} or {{$HOME/.csirc}} exists, then it is loaded before the read-eval-print loop commences.