summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <mikael@djurfeldt.com>2024-11-24 15:26:08 +0100
committerMikael Djurfeldt <mikael@djurfeldt.com>2024-11-25 21:47:53 +0100
commit05de7e3e6100a065599260e6212329b23da1fa64 (patch)
treee868a59b11733f51353c3fa34e604334528af917
parentd619da8c351d80ba153e71aaf51d8d2f9c3584e7 (diff)
downloadguile-05de7e3e6100a065599260e6212329b23da1fa64.tar.gz
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.
-rw-r--r--module/oop/goops.scm12
1 files 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)))