[Top][All Lists]

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

[Guile-commits] 02/02: Fix GOOPS class redefinition type error.

From: Andy Wingo
Subject: [Guile-commits] 02/02: Fix GOOPS class redefinition type error.
Date: Mon, 25 Sep 2017 16:39:42 -0400 (EDT)

wingo pushed a commit to branch master
in repository guile.

commit c3a81128478bed4a65a509d3a3a7074b712e94fd
Author: Andy Wingo <address@hidden>
Date:   Mon Sep 25 22:37:38 2017 +0200

    Fix GOOPS class redefinition type error.
    * module/oop/goops.scm (allocate-instance): Fix error introduced in
      recent merge.
 module/oop/goops.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index f77b77a..bd5cc75 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -3116,7 +3116,7 @@ var{initargs}."
         (nfields (struct-ref/unboxed class class-index-nfields))
         (indirect-slots-class (slot-ref class 'indirect-slots-class)))
     ;; Indirect slots will be last struct field.
-    (struct-set!/unboxed instance (1- nfields) (make indirect-slots-class))
+    (struct-set! instance (1- nfields) (make indirect-slots-class))
 ;; Called when redefining an existing binding, and the new binding is a

reply via email to

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