diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-19 16:58:14 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:04 +0100 |
commit | 7c49985fac7d8d095c5fcad314b11e7a3c8dbf78 (patch) | |
tree | 3b68d9eeede3337ab31f1cee42b833bde1113622 /module/system/foreign-object.scm | |
parent | c6fb41fcbfc61f115c13acc3a7dbc5dda5b463c6 (diff) | |
download | guile-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.scm | 4 |
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)) |