summaryrefslogtreecommitdiff
path: root/module/oop/goops.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/oop/goops.scm')
-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)))