[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/07: Remove method slot keyword-formals? introduced in
From: |
Mikael Djurfeldt |
Subject: |
[Guile-commits] 03/07: Remove method slot keyword-formals? introduced in 765f1d49 |
Date: |
Mon, 25 Nov 2024 15:54:17 -0500 (EST) |
mdj pushed a commit to branch main
in repository guile.
commit 05de7e3e6100a065599260e6212329b23da1fa64
Author: Mikael Djurfeldt <mikael@djurfeldt.com>
AuthorDate: Sun Nov 24 15:26:08 2024 +0100
Remove method slot keyword-formals? introduced in 765f1d49
* module/oop/goops.scm (method-keyword-formals?): Remov method slot
keyword-formals? as well as exported procedure method-keyword-formals?
introduced in 765f1d49 by partially reverting that commit.
---
module/oop/goops.scm | 12 ++----------
1 file changed, 2 insertions(+), 10 deletions(-)
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index db7479ef6..01bf1612e 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -136,7 +136,7 @@
class-slots
generic-function-name
generic-function-methods method-generic-function
- method-specializers method-formals method-keyword-formals?
+ method-specializers method-formals
primitive-generic-generic enable-primitive-generic!
method-procedure accessor-method-slot-definition
make find-method get-keyword))
@@ -1053,7 +1053,6 @@ slots as we go."
specializers
procedure
formals
- keyword-formals?
body
make-procedure)
(define-standard-class <accessor-method> (<method>)
@@ -1158,7 +1157,6 @@ function."
(#:specializers specializers ())
(#:procedure procedure #f)
(#:formals formals ())
- (#:keyword-formals? keyword-formals? #f)
(#:body body ())
(#:make-procedure make-procedure #f))))
((memq <class> (class-precedence-list class))
@@ -2116,7 +2114,7 @@ function."
;;; This section of helpers is used by both the method and method* syntax
;;;
(eval-when (expand load eval)
-
+
;; parse-formals METHOD-FORMALS
;;
;; return (FORMALS SPECIALIZERS KEYWORD-FORMALS)
@@ -2309,7 +2307,6 @@ function."
;; The cons* is needed to get the value of each
;; specializer.
#:formals 'formals ;might be improper
- #:keyword-formals? #f
#:body '(body0 body1 ...)
#:make-procedure make-procedure
#:procedure procedure)))))))))
@@ -2334,7 +2331,6 @@ function."
#:formals (if (null? 'keyword-formals)
'formals ;might be improper
(append 'formals 'keyword-formals))
- #:keyword-formals? (not (null? 'keyword-formals))
#:body '(body0 body1 ...)
#:make-procedure make-procedure
#:procedure procedure)))))))))
@@ -2457,9 +2453,6 @@ function."
(define-method (method-formals (m <method>))
(slot-ref m 'formals))
-(define-method (method-keyword-formals? (m <method>))
- (slot-ref m 'keyword-formals?))
-
;;;
;;; Slots
;;;
@@ -3013,7 +3006,6 @@ var{initargs}."
(slot-set! method 'procedure
(get-keyword #:procedure initargs #f))
(slot-set! method 'formals (get-keyword #:formals initargs '()))
- (slot-set! method 'keyword-formals? (get-keyword #:keyword-formals? initargs
#f))
(slot-set! method 'body (get-keyword #:body initargs '()))
(slot-set! method 'make-procedure (get-keyword #:make-procedure initargs
#f)))
- [Guile-commits] branch main updated (c51fcfffb -> a3c77cb8d), Mikael Djurfeldt, 2024/11/25
- [Guile-commits] 02/07: GOOPS: Introduce new forms method* and define-method*, Mikael Djurfeldt, 2024/11/25
- [Guile-commits] 03/07: Remove method slot keyword-formals? introduced in 765f1d49,
Mikael Djurfeldt <=
- [Guile-commits] 04/07: Distinguish between lambda and lambda* in generated procedures, Mikael Djurfeldt, 2024/11/25
- [Guile-commits] 05/07: Correctly pass on keyword arguments actually present in args list, Mikael Djurfeldt, 2024/11/25
- [Guile-commits] 06/07: Document method* and define-method*, Mikael Djurfeldt, 2024/11/25
- [Guile-commits] 01/07: GOOPS: Add support for keyword arguments in methods, Mikael Djurfeldt, 2024/11/25
- [Guile-commits] 07/07: Update NEWS, Mikael Djurfeldt, 2024/11/25