From 1a461493a33d44f41a7d5245df142ef000c09db3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 8 Apr 2010 10:56:14 +0200 Subject: [PATCH] sync regs before calling scm_class_of * libguile/vm-i-scheme.c (class-of): Sync registers before calling scm_class_of. --- libguile/vm-i-scheme.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index af052af1c..3e31691cc 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -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)