mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

SCM_VALIDATE_VTABLE tweak

Browse source 
* libguile/validate.h (SCM_VALIDATE_VTABLE): Simply call
  scm_struct_vtable_p.
This commit is contained in:
Andy Wingo 2009-11-03 22:33:22 +01:00
parent b8187a71cb
commit 092d7704be
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/validate.h
View file

@ -377,8 +377,7 @@
#define SCM_VALIDATE_VTABLE(pos, v) \ #define SCM_VALIDATE_VTABLE(pos, v) \
do { \ do { \
SCM_ASSERT (!SCM_IMP (v) && scm_is_true (scm_struct_vtable_p (v)), \ SCM_ASSERT (scm_is_true (scm_struct_vtable_p (v)), v, pos, FUNC_NAME); \
v, pos, FUNC_NAME); \
} while (0) } while (0)
#define SCM_VALIDATE_VECTOR_LEN(pos, v, len) \ #define SCM_VALIDATE_VECTOR_LEN(pos, v, len) \