guile/guile-oops goops.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/09 17:42:07

Modified files:
        guile-oops     : goops.scm 

Log message:
        Fix

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-oops/goops.scm.diff?r1=1.63&r2=1.64

Patches:
Index: guile/guile-oops/goops.scm
diff -u guile/guile-oops/goops.scm:1.63 guile/guile-oops/goops.scm:1.64
--- guile/guile-oops/goops.scm:1.63     Fri Mar  9 17:27:15 2001
+++ guile/guile-oops/goops.scm  Fri Mar  9 17:42:07 2001
@@ -446,25 +446,31 @@
                                 (if (not ,name)
                                     (define-accessor ,name))
                                 (add-method! (setter ,name)
-                                             (method ,@(cddr exp)))))
+                                             (method ,(cdadr exp)
+                                                     ,@(cddr exp)))))
                             (else
                              `(begin
                                 (define-accessor ,name)
                                 (add-method! (setter ,name)
-                                             (method ,@(cddr exp))))))))
+                                             (method ,(cdadr exp)
+                                                     ,@(cddr exp))))))))
                    ((not (symbol? gf))
-                    `(add-method! ,gf (method ,@(cddr exp))))
+                    `(add-method! ,gf (method ,(cdadr exp) ,@(cddr exp))))
                    ((defined? gf env)
                     `(begin
                        ;; *fixme* Temporary hack for the current
                        ;;         module system
                        (if (not ,gf)
                            (define-generic ,gf))
-                       (add-method! ,gf (method ,@(cddr exp)))))
+                       (add-method! ,gf
+                                    (method ,(cdadr exp)
+                                            ,@(cddr exp)))))
                    (else
                     `(begin
                        (define-generic ,gf)
-                       (add-method! ,gf (method ,@(cddr exp))))))))))))
+                       (add-method! ,gf
+                                    (method ,(cdadr exp)
+                                            ,@(cddr exp))))))))))))
 
 (define (make-method specializers procedure)
   (make <method>