From 092d7704bef29a999a6f861fae461e9662b6fb98 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 3 Nov 2009 22:33:22 +0100
Subject: SCM_VALIDATE_VTABLE tweak

* libguile/validate.h (SCM_VALIDATE_VTABLE): Simply call
  scm_struct_vtable_p.
---
 libguile/validate.h | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'libguile/validate.h')

diff --git a/libguile/validate.h b/libguile/validate.h
index 8c7946902..ec32aa6c2 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -377,8 +377,7 @@
 
 #define SCM_VALIDATE_VTABLE(pos, v) \
   do { \
-    SCM_ASSERT (!SCM_IMP (v) && scm_is_true (scm_struct_vtable_p (v)), \
-                v, pos, FUNC_NAME); \
+    SCM_ASSERT (scm_is_true (scm_struct_vtable_p (v)), v, pos, FUNC_NAME); \
   } while (0)
 
 #define SCM_VALIDATE_VECTOR_LEN(pos, v, len) \
-- 
cgit v1.2.1