guile-commits
[Top][All Lists]
Advanced

[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)))
 



reply via email to

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