From 8f41c3098e6b716cf09f5ea95b0ea1253fd98656 Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sat, 10 Oct 2015 10:58:53 +0200
Subject: [PATCH] * src/data.c (Faset): Fix last change.

---
 src/data.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/data.c b/src/data.c
index 5ee40c54040..a910f6e58f3 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2215,7 +2215,7 @@ bool-vector.  IDX starts at 0.  */)
   CHECK_NUMBER (idx);
   idxval = XINT (idx);
   CHECK_ARRAY (array, Qarrayp);
-  CHECK_IMPURE (array, XVECTOR (array));
+  CHECK_IMPURE (array, XPNTR (array));
 
   if (VECTORP (array))
     {
-- 
2.39.2