mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 05:20:16 +02:00
Code Activity

* objects.c (scm_class_of): Bugfix: Inserted missing SCM_CDR

Browse source 
setting struct table class.
This commit is contained in:
Mikael Djurfeldt 1999-12-19 21:39:00 +00:00
parent 71bdf39890
commit 11f2a64348
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/objects.c
View file

@ -201,7 +201,7 @@ scm_class_of (SCM x)
SCM class = scm_make_extended_class (SCM_NFALSEP (name) SCM class = scm_make_extended_class (SCM_NFALSEP (name)
? SCM_ROCHARS (name) ? SCM_ROCHARS (name)
: 0); : 0);
SCM_SET_STRUCT_TABLE_CLASS (handle, class); SCM_SET_STRUCT_TABLE_CLASS (SCM_CDR (handle), class);
return class; return class;
} }
} }