[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-9-55-g1a46149
Date: Thu, 08 Apr 2010 08:57:39 +0000

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".

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


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));
+  RETURN (scm_class_of (obj));
 VM_DEFINE_FUNCTION (170, slot_ref, "slot-ref", 2)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]