mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +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_ROCHARS (name)
: 0);
SCM_SET_STRUCT_TABLE_CLASS (handle, class);
SCM_SET_STRUCT_TABLE_CLASS (SCM_CDR (handle), class);
return class;
}
}