From 69d573a54f5809ca3d7ddda5aae308480bde64af Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 18 Oct 2008 13:19:01 -0400
Subject: [PATCH] =?UTF-8?q?fixed=20bugs=20in=20char-ci-*=3F=20procedures?=
 =?UTF-8?q?=20in=20the=203+=20args=20case.=20=20E.g.,=20=20=20(char-ci<=3D?=
 =?UTF-8?q?=3F=20#\a=20#\r=20#\z)?=

---
 scheme/ikarus.unicode-data.ss | 10 +++++-----
 scheme/last-revision          |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/scheme/ikarus.unicode-data.ss b/scheme/ikarus.unicode-data.ss
index fa39263..f6eb4de 100644
--- a/scheme/ikarus.unicode-data.ss
+++ b/scheme/ikarus.unicode-data.ss
@@ -164,7 +164,7 @@
        (or (char? x) (die 'char-ci=? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char=? 'char-ci=?)
+           (char-ci-loop ($fold x) x* = 'char-ci=?)
            (die 'char-ci=? "not a char" x))]))
 
   (define char-ci<? 
@@ -180,7 +180,7 @@
        (or (char? x) (die 'char-ci<? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char<? 'char-ci<?)
+           (char-ci-loop ($fold x) x* < 'char-ci<?)
            (die 'char-ci<? "not a char" x))]))
 
   (define char-ci<=? 
@@ -196,7 +196,7 @@
        (or (char? x) (die 'char-ci<=? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char<=? 'char-ci<=?)
+           (char-ci-loop ($fold x) x* <= 'char-ci<=?)
            (die 'char-ci<=? "not a char" x))]))
 
   (define char-ci>? 
@@ -212,7 +212,7 @@
        (or (char? x) (die 'char-ci>? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char>? 'char-ci>?)
+           (char-ci-loop ($fold x) x* > 'char-ci>?)
            (die 'char-ci>? "not a char" x))]))
   
   (define char-ci>=? 
@@ -228,7 +228,7 @@
        (or (char? x) (die 'char-ci>=? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char>=? 'char-ci>=?)
+           (char-ci-loop ($fold x) x* >= 'char-ci>=?)
            (die 'char-ci>=? "not a char" x))]))
                
   (define ($string-change-case str adjustment-vector)
diff --git a/scheme/last-revision b/scheme/last-revision
index 1008433..a3845ee 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1631
+1632