mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Update #:procedure method for <applicable-struct>

Browse source 
* modules/oop/goop.scm (initialize-object-procedure): Use slot-set!
  instead of set-object-procedure!.
This commit is contained in:
Tristan Colgate 2010-06-29 09:14:33 +01:00 • committed by Andy Wingo
parent d83eb93f45
commit 962b910318
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/oop/goops.scm
View file

@ -1453,9 +1453,9 @@
(let ((proc (get-keyword #:procedure initargs #f))) (let ((proc (get-keyword #:procedure initargs #f)))
(cond ((not proc)) (cond ((not proc))
((pair? proc) ((pair? proc)
(apply set-object-procedure! object proc)) (apply slot-set! object 'procedure proc))
(else (else
(set-object-procedure! object proc))))) (slot-set! object 'procedure proc)))))
(define-method (initialize (applicable-struct <applicable-struct>) initargs) (define-method (initialize (applicable-struct <applicable-struct>) initargs)
(next-method) (next-method)