Author: yamakenz
Date: Tue Jul 10 18:08:31 2007
New Revision: 4691
Modified:
trunk/scm/util.scm
Log:
* scm/util.scm
- (char-vowel?): Rewrite without string->char (and string->charcode)
Modified: trunk/scm/util.scm
==============================================================================
--- trunk/scm/util.scm (original)
+++ trunk/scm/util.scm Tue Jul 10 18:08:31 2007
@@ -258,8 +258,8 @@
;; TODO: write test
(define char-vowel?
- (let ((vowel-chars (map string->char
- '("a" "i" "u" "e" "o"))))
+ (let ((vowel-chars (map char->integer
+ '(#\a #\i #\u #\e #\o))))
(lambda (c)
(and (char-alphabetic? c)
(member (char-downcase c)
