/[guile]/guile/guile-core/oop/goops.scm
ViewVC logotype

Diff of /guile/guile-core/oop/goops.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.2.3 by mdj, Mon Apr 14 20:13:50 2003 UTC revision 1.13.2.4 by mdj, Tue Apr 15 01:15:06 2003 UTC
# Line 909  Line 909 
909  (define-method (remove-class-accessors! (c <class>))  (define-method (remove-class-accessors! (c <class>))
910    (for-each (lambda (m)    (for-each (lambda (m)
911                (if (is-a? m <accessor-method>)                (if (is-a? m <accessor-method>)
912                    (remove-method-in-classes! m)))                    (let ((gf (slot-ref m 'generic-function)))
913                        ;; remove the method from its GF
914                        (slot-set! gf 'methods
915                                   (delq1! m (slot-ref gf 'methods)))
916                        (%invalidate-method-cache! gf)
917                        ;; remove the method from its specializers
918                        (remove-method-in-classes! m))))
919              (class-direct-methods c)))              (class-direct-methods c)))
920    
921  ;;;  ;;;
# Line 975  Line 981 
981      (make <accessor-method>      (make <accessor-method>
982            #:specializers (list class)            #:specializers (list class)
983            #:procedure (cond ((pair? g-n-s)            #:procedure (cond ((pair? g-n-s)
984                               (if init-thunk                               (make-generic-bound-check-getter (car g-n-s)))
                                  (car g-n-s)  
                                  (make-generic-bound-check-getter (car g-n-s))  
                                  ))  
985                              (init-thunk                              (init-thunk
986                               (standard-get g-n-s))                               (standard-get g-n-s))
987                              (else                              (else

Legend:
Removed from v.1.13.2.3  
changed lines
  Added in v.1.13.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26