[uim-commit] r1221 - branches/r5rs/scm

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-18 07:42:53 -0700 (Thu, 18 Aug 2005)
New Revision: 1221

Modified:
   branches/r5rs/scm/util.scm
Log:
* scm/util.scm
  - (char-control?, char-upper-case?, char-lower-case?
     char-numeric?, char-printable?): use integer? instead of number?
    as suggested by r1218


Modified: branches/r5rs/scm/util.scm
===================================================================
--- branches/r5rs/scm/util.scm	2005-08-18 14:29:19 UTC (rev 1220)
+++ branches/r5rs/scm/util.scm	2005-08-18 14:42:53 UTC (rev 1221)
@@ -206,19 +206,19 @@
 
 (define char-control?
   (lambda (c)
-    (and (number? c)
+    (and (integer? c)
 	 (or (<= c 31)
 	     (= c 127)))))
 
 (define char-upper-case?
   (lambda (c)
-    (and (number? c)
+    (and (integer? c)
 	 (>= c 65)
 	 (<= c 90))))
 
 (define char-lower-case?
   (lambda (c)
-    (and (number? c)
+    (and (integer? c)
 	 (>= c 97)
 	 (<= c 122))))
 
@@ -229,13 +229,13 @@
 
 (define char-numeric?
   (lambda (c)
-    (and (number? c)
+    (and (integer? c)
 	 (>= c 48)
 	 (<= c 57))))
 
 (define char-printable?
   (lambda (c)
-    (and (number? c)
+    (and (integer? c)
 	 (<= c 127)
 	 (not (char-control? c)))))