summaryrefslogtreecommitdiff
path: root/libguile/foreign-object.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/foreign-object.c')
-rw-r--r--libguile/foreign-object.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/foreign-object.c b/libguile/foreign-object.c
index 830f73f80..f074463a1 100644
--- a/libguile/foreign-object.c
+++ b/libguile/foreign-object.c
@@ -58,6 +58,7 @@ scm_make_foreign_object_type (SCM name, SCM slot_names,
void
scm_assert_foreign_object_type (SCM type, SCM val)
{
+ /* FIXME: Add fast path for when type == struct vtable */
if (!SCM_IS_A_P (val, type))
scm_error (scm_arg_type_key, NULL, "Wrong type (expecting ~A): ~S",
scm_list_2 (scm_class_name (type), val), scm_list_1 (val));