[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/06: Fix foreign objects for removal of getters-n-sett
From: |
Andy Wingo |
Subject: |
[Guile-commits] 03/06: Fix foreign objects for removal of getters-n-setters |
Date: |
Wed, 21 Jan 2015 14:23:00 +0000 |
wingo pushed a commit to branch wip-goops-refactor
in repository guile.
commit cc63cbfd20b6b1bdc7872d1d89aa1ffdeb64fd88
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))
getter))
- [Guile-commits] branch wip-goops-refactor updated (9eac2c6 -> 39f3232), Andy Wingo, 2015/01/21
- [Guile-commits] 01/06: Minor GOOPS cleanups, Andy Wingo, 2015/01/21
- [Guile-commits] 06/06: Fast generic function dispatch without calling `compile' at runtime, Andy Wingo, 2015/01/21
- [Guile-commits] 03/06: Fix foreign objects for removal of getters-n-setters,
Andy Wingo <=
- [Guile-commits] 05/06: GOOPS cosmetics, Andy Wingo, 2015/01/21
- [Guile-commits] 04/06: Update (oop goops save) for <slot> objects, Andy Wingo, 2015/01/21
- [Guile-commits] 02/06: Keywords have a tc7, Andy Wingo, 2015/01/21