[Top][All Lists]

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

[Guile-commits] 82/88: Fix foreign objects for removal of getters-n-sett

From: Andy Wingo
Subject: [Guile-commits] 82/88: Fix foreign objects for removal of getters-n-setters
Date: Fri, 23 Jan 2015 15:26:01 +0000

wingo pushed a commit to branch master
in repository guile.

commit 7c49985fac7d8d095c5fcad314b11e7a3c8dbf78
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 19 16:58:14 2015 +0100

    Fix foreign objects for removal of getters-n-setters
    * module/system/foreign-object.scm (getter-method): Fix for removal of
      getters-n-setters property.
 module/system/foreign-object.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/foreign-object.scm b/module/system/foreign-object.scm
index 319b0f4..b766df0 100644
--- a/module/system/foreign-object.scm
+++ b/module/system/foreign-object.scm
@@ -1,6 +1,6 @@
 ;;; 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
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -44,7 +44,7 @@
 (define (getter-method class slot-name existing)
   (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))))
     (add-method! getter (compute-getter-method class slot-def))

reply via email to

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