/[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.17 by dirk, Sat Jul 13 09:44:39 2002 UTC revision 1.18 by dirk, Sat Nov 16 16:29:06 2002 UTC
# Line 247  Line 247 
247                            (variable-set! var (class-redefinition old class))                            (variable-set! var (class-redefinition old class))
248                            (variable-set! var class)))))))))))                            (variable-set! var class)))))))))))
249    
250  (define standard-define-class define-class)  (defmacro standard-define-class args
251      `(define-class ,@args))
252    
253  ;;; (class (SUPER ...) SLOT-DEFINITION ... OPTION ...)  ;;; (class (SUPER ...) SLOT-DEFINITION ... OPTION ...)
254  ;;;  ;;;

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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