summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
authorMikael Djurfeldt <mikael@djurfeldt.com>2024-11-27 13:27:46 +0100
committerMikael Djurfeldt <mikael@djurfeldt.com>2024-11-27 13:27:46 +0100
commit382d890026aee242de25817de87b2c405eed63db (patch)
treeeac4ccb312f57a6ed13f6d76dde5e6492d6a640b /module/oop
parentd2756503f16061e522ba0f34163e79f1fdc79327 (diff)
downloadguile-382d890026aee242de25817de87b2c405eed63db.tar.gz
Bugfix: Recursively use method*, not method, in method*
* module/oop/goops.scm (method*): Do not use method.
Diffstat (limited to 'module/oop')
-rw-r--r--module/oop/goops.scm9
1 files 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)))