* goops.scm (standard-define-class): Changed definition to form

a 'real' macro definition.

diff --git a/oop/ChangeLog b/oop/ChangeLog
index f72fa41..94b44a8 100644 (file)
--- a/oop/ChangeLog
+++ b/oop/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-16  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * goops.scm (standard-define-class):  Changed definition to form
+       a 'real' macro definition.
+
 2002-07-13  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * goops.scm (define-generic, define-accessor):  Make sure that

diff --git a/oop/goops.scm b/oop/goops.scm
index e9c50af..b126b11 100644 (file)
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -247,7 +247,8 @@
                          (variable-set! var (class-redefinition old class))
                          (variable-set! var class)))))))))))
 
-(define standard-define-class define-class)
+(defmacro standard-define-class args
+  `(define-class ,@args))
 
 ;;; (class (SUPER ...) SLOT-DEFINITION ... OPTION ...)
 ;;;