From 693e72891f28a1e009bd4661711d11d8f2b0e201 Mon Sep 17 00:00:00 2001
From: Michael Gran <spk121@yahoo.com>
Date: Wed, 2 Sep 2009 06:03:28 -0700
Subject: [PATCH] char-set-any improperly unpacks charset data

* libguile/srfi-14.c (scm_char_set_any): unpack the charset correctly
---
 libguile/srfi-14.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c
index d8f828318..218ab36fc 100644
--- a/libguile/srfi-14.c
+++ b/libguile/srfi-14.c
@@ -1495,7 +1495,9 @@ SCM_DEFINE (scm_char_set_any, "char-set-any", 2, 0, 0,
   SCM_VALIDATE_PROC (1, pred);
   SCM_VALIDATE_SMOB (2, cs, charset);
 
-  cs_data = (scm_t_char_set *) cs;
+  cs_data = SCM_CHARSET_DATA (cs);
+  if (cs_data->len == 0)
+    return SCM_BOOL_T;
 
   for (k = 0; k < cs_data->len; k++)
     for (n = cs_data->ranges[k].lo; n <= cs_data->ranges[k].hi; n++)