From 11f2a64348eac25997205de4e76cefe91acf5260 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 19 Dec 1999 21:39:00 +0000 Subject: [PATCH] * objects.c (scm_class_of): Bugfix: Inserted missing SCM_CDR setting struct table class. --- libguile/objects.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/objects.c b/libguile/objects.c index 80478facf..cc8b6e57c 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -201,7 +201,7 @@ scm_class_of (SCM x) SCM class = scm_make_extended_class (SCM_NFALSEP (name) ? SCM_ROCHARS (name) : 0); - SCM_SET_STRUCT_TABLE_CLASS (handle, class); + SCM_SET_STRUCT_TABLE_CLASS (SCM_CDR (handle), class); return class; } }