/[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.27 by mdj, Mon Mar 17 13:53:58 2003 UTC revision 1.28 by mdj, Wed Mar 19 14:50:20 2003 UTC
# Line 198  Line 198 
198    
199  (define (process-class-pre-define-accessor name)  (define (process-class-pre-define-accessor name)
200    (let ((var (module-variable (current-module) name)))    (let ((var (module-variable (current-module) name)))
201      (if (not (and var      (cond ((or (not var)
202                    (variable-bound? var)                 (not (variable-bound? var)))
203                    (or (is-a? (variable-ref var) <accessor>)             (process-define-accessor name))
204                        (is-a? (variable-ref var) <extended-generic-with-setter>))))            ((or (is-a? (variable-ref var) <accessor>)
205          (process-define-accessor name))))                 (is-a? (variable-ref var) <extended-generic-with-setter>)))
206              ((is-a? (variable-ref var) <generic>)
207               ;;*fixme* don't mutate an imported object!
208               (variable-set! var (ensure-accessor (variable-ref var) name)))
209              (else
210               (process-define-accessor name)))))
211    
212  ;;; This code should be implemented in C.  ;;; This code should be implemented in C.
213  ;;;  ;;;

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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