summaryrefslogtreecommitdiff
path: root/module/system/foreign-object.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-01-19 16:58:14 +0100
committerAndy Wingo <wingo@pobox.com>2015-01-23 16:16:04 +0100
commit7c49985fac7d8d095c5fcad314b11e7a3c8dbf78 (patch)
tree3b68d9eeede3337ab31f1cee42b833bde1113622 /module/system/foreign-object.scm
parentc6fb41fcbfc61f115c13acc3a7dbc5dda5b463c6 (diff)
downloadguile-7c49985fac7d8d095c5fcad314b11e7a3c8dbf78.tar.gz
Fix foreign objects for removal of getters-n-setters
* module/system/foreign-object.scm (getter-method): Fix for removal of getters-n-setters property.
Diffstat (limited to 'module/system/foreign-object.scm')
-rw-r--r--module/system/foreign-object.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/foreign-object.scm b/module/system/foreign-object.scm
index 319b0f4e4..b766df0ce 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))