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

Fix GOOPS class redefinition type error.

Browse source 
* module/oop/goops.scm (allocate-instance): Fix error introduced in
  recent merge.
This commit is contained in:
Andy Wingo 2017-09-25 22:37:38 +02:00
parent 760662f7f1
commit c3a8112847
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/oop/goops.scm
View file

@ -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))
instance))
;; Called when redefining an existing binding, and the new binding is a