mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

sync regs before calling scm_class_of

Browse source 
* libguile/vm-i-scheme.c (class-of): Sync registers before calling
  scm_class_of.
This commit is contained in:
Andy Wingo 2010-04-08 10:56:14 +02:00
parent 9225df3c55
commit 1a461493a3
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/vm-i-scheme.c
View file

@ -515,7 +515,10 @@ VM_DEFINE_FUNCTION (168, struct_set, "struct-set", 3)
VM_DEFINE_FUNCTION (169, class_of, "class-of", 1)
{
ARGS1 (obj);
RETURN (SCM_INSTANCEP (obj) ? SCM_CLASS_OF (obj) : scm_class_of (obj));
if (SCM_INSTANCEP (obj))
RETURN (SCM_CLASS_OF (obj));
SYNC_REGISTER ();
RETURN (scm_class_of (obj));
}
VM_DEFINE_FUNCTION (170, slot_ref, "slot-ref", 2)