diff options
Diffstat (limited to 'libguile/foreign-object.c')
-rw-r--r-- | libguile/foreign-object.c | 1 |
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)); |