mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Fix foreign objects for removal of getters-n-setters

Browse source 
* module/system/foreign-object.scm (getter-method): Fix for removal of
  getters-n-setters property.
This commit is contained in:
Andy Wingo 2015-01-19 16:58:14 +01:00
parent c6fb41fcbf
commit 7c49985fac
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/foreign-object.scm
View file

@ -1,6 +1,6 @@
;;; Wrapping foreign objects in Scheme ;;; Wrapping foreign objects in Scheme
;;; Copyright (C) 2014 Free Software Foundation, Inc. ;;; Copyright (C) 2014, 2015 Free Software Foundation, Inc.
;;; ;;;
;;; This library is free software; you can redistribute it and/or ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; modify it under the terms of the GNU Lesser General Public
@ -44,7 +44,7 @@
(define (getter-method class slot-name existing) (define (getter-method class slot-name existing)
(let ((getter (ensure-generic existing slot-name)) (let ((getter (ensure-generic existing slot-name))
(slot-def (or (assq slot-name (slot-ref class 'getters-n-setters)) (slot-def (or (class-slot-definition class slot-name)
(slot-missing class slot-name)))) (slot-missing class slot-name))))
(add-method! getter (compute-getter-method class slot-def)) (add-method! getter (compute-getter-method class slot-def))
getter)) getter))