[Guile-commits] GNU Guile branch, master, updated. release_1-9-9-55-g1a46149

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=1a461493a33d44f41a7d5245df142ef000c09db3

The branch, master has been updated
       via  1a461493a33d44f41a7d5245df142ef000c09db3 (commit)
      from  9225df3c551c9b28cf16f5c4aab8cf1183f44577 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 1a461493a33d44f41a7d5245df142ef000c09db3
Author: Andy Wingo <address@hidden>
Date:   Thu Apr 8 10:56:14 2010 +0200

    sync regs before calling scm_class_of
    
    * libguile/vm-i-scheme.c (class-of): Sync registers before calling
      scm_class_of.

-----------------------------------------------------------------------

Summary of changes:
 libguile/vm-i-scheme.c |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index af052af..3e31691 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)


hooks/post-receive
-- 
GNU Guile