Minor bug in kernel.scm David A. Wheeler 12 Nov 2013 16:54 UTC

Joerg F. Wittenberger has reported a bug in kernel.scm's "set-read-mode" that
cases [no-]fold-case to not work.

I'll patch the code in the "readable" library:
http://sourceforge.net/p/readable/code/ci/master/tree/

Below is a patch to fix it.

--- David A. Wheeler

==================================

diff --git a/src/kernel.scm b/src/kernel.scm
index 94bcbe1..26901c5 100644
--- a/src/kernel.scm
+++ b/src/kernel.scm
@@ -659,9 +659,9 @@
         (set! common-lisp #t) #t)
       ((eq? mode 'literal-barred-symbol)
         (set! literal-barred-symbol #t) #t)
-      ((eq? 'fold-case)
+      ((eq? mode 'fold-case)
         (set! is-foldcase #t) #t)
-      ((eq? 'no-fold-case)
+      ((eq? mode 'no-fold-case)
         (set! is-foldcase #f) #t)
       (#t (display "Warning: Unknown mode") #f)))