From 210fe3d487b846a7f30a3c0020b37f7fd55714a2 Mon Sep 17 00:00:00 2001 From: Bernd Jendrissek Date: Thu, 6 Jul 2017 04:58:27 +0200 Subject: [PATCH] Relax type assertion. gschem/scheme/auto-place-attribs.scm calls get-object-pins on objects that aren't OBJ_COMPLEX. Throwing exceptions for other objects would unreasonably complicate attribute autoplacement. --- libgeda/src/g_smob.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/libgeda/src/g_smob.c b/libgeda/src/g_smob.c index 5e7a36834..9020883d7 100644 --- a/libgeda/src/g_smob.c +++ b/libgeda/src/g_smob.c @@ -1105,10 +1105,8 @@ SCM g_get_object_pins (SCM object_smob) SCM_ASSERT(g_get_data_from_object_smob(object_smob, &ctx.toplevel, &object), object_smob, SCM_ARG1, "get-object-pins"); - g_return_val_if_fail(object, SCM_EOL); - - SCM_ASSERT_TYPE(object->type == OBJ_COMPLEX, object_smob, SCM_ARG1, - "get-object-pins", "OBJ_COMPLEX"); + SCM_ASSERT_TYPE(object, object_smob, SCM_ARG1, + "get-object-pins", "OBJECT"); s_visit_object(object, &g_cons_object_visitor, &ctx, VISIT_LINEAR, 1); -- 2.11.4.GIT