From 3b7284cd0efd0dedd3c89da83359a2ab796b8a9b Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 4 May 1998 12:05:37 +0000 Subject: [PATCH] Fix --- libguile/objects.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/objects.c b/libguile/objects.c index 158aa74b4..cbf446706 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -64,7 +64,7 @@ scm_set_object_procedure_x (SCM obj, SCM procs) SCM proc[4], *pp, p, setp, arity; int i, a, r; SCM_ASSERT (SCM_NIMP (obj) && SCM_STRUCTP (obj) - && ((SCM_CLASS_FLAGS (obj) | SCM_CLASSF_OPERATOR) + && ((SCM_CLASS_FLAGS (obj) & SCM_CLASSF_OPERATOR) || SCM_I_ENTITYP (obj)), obj, SCM_ARG1,