guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] branch main updated: Bugfix: Recursively use method*, no


From: Mikael Djurfeldt
Subject: [Guile-commits] branch main updated: Bugfix: Recursively use method*, not method, in method*
Date: Wed, 27 Nov 2024 07:30:22 -0500

This is an automated email from the git hooks/post-receive script.

mdj pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new 382d89002 Bugfix: Recursively use method*, not method, in method*
382d89002 is described below

commit 382d890026aee242de25817de87b2c405eed63db
Author: Mikael Djurfeldt <mikael@djurfeldt.com>
AuthorDate: Wed Nov 27 13:27:46 2024 +0100

    Bugfix: Recursively use method*, not method, in method*
    
    * module/oop/goops.scm (method*): Do not use method.
---
 module/oop/goops.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index 1938235d8..5b1f7978b 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -2073,10 +2073,9 @@ function."
 ;;; eliminated. Note also that it doesn't support the (next-method) call
 ;;; as does the following implementation.
 ;;;
-;;; If you make changes to the following implementation, bear in mind
-;;; that define-method* is supposed to also be able to handle ordinary
-;;; methods without keyword formals. See the Guile Reference and the
-;;; module (oop goops keyword-formals).
+;;; If you make changes, bear in mind that define-method* is supposed to
+;;; also be able to handle ordinary methods without keyword formals. See
+;;; the Guile Reference and the module (oop goops keyword-formals).
 ;;;
 
 (define-syntax define-method
@@ -2369,7 +2368,7 @@ function."
 (define-syntax method*
   (lambda (x)
     (syntax-case x ()
-      ((_ formals) #'(method formals (if #f #f)))
+      ((_ formals) #'(method* formals (if #f #f)))
       ((_ formals body0 body1 ...)
        (with-syntax (((formals (specializer ...) keyword-formals)
                       (parse-keyword-formals #'formals)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]