[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Minor bug in kernel.scm

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:

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)))