From b24ce3293e5d0905275db2fa393501fdcc086cc8 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 13 May 2014 23:02:40 +0900
Subject: [PATCH] Using char-set-for-each instead of for-each on
 char-set->list.

---
 lib/chibi/regexp.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/chibi/regexp.scm b/lib/chibi/regexp.scm
index e1b892fa..e8860556 100644
--- a/lib/chibi/regexp.scm
+++ b/lib/chibi/regexp.scm
@@ -60,11 +60,11 @@
 
 (define (char-set-ci cset)
   (let ((res (char-set)))
-    (for-each
+    (char-set-for-each
      (lambda (ch)
        (char-set-adjoin! res (char-upcase ch))
        (char-set-adjoin! res (char-downcase ch)))
-     (char-set->list cset))
+     cset)
     res))
 
 (define (make-char-state ch flags next)