www

commit 2b71ce7ac5f8837302a53b9ba21d58c31cae4fc3
parent cc2cc2aaecbb56494248e73941d6a0ffa8633f7e
Author: AlexKnauth <alexander@knauth.org>
Date:   Mon,  6 Apr 2015 07:39:20 -0400

add procedure-required-keywords etc.

Diffstat:
M
kw-utils/arity+keywords.rkt
 | 
8
++++++++

1 file changed, 8 insertions(+), 0 deletions(-)
diff --git a/kw-utils/arity+keywords.rkt b/kw-utils/arity+keywords.rkt
@@ -9,6 +9,8 @@
          arity+keywords-matches?
          procedure-arity+keywords-matches?
          procedure-arity+keywords-matches?/c
+         procedure-required-keywords
+         procedure-allowed-keywords
          arity+keywords-combine/or  arity-combine/or  kws-combine/or
          arity+keywords-combine/and arity-combine/and kws-combine/and
          arity+keywords-combine
@@ -63,6 +65,12 @@
     (procedure-keywords proc))
   (arity+keywords arity req-kws allowed-kws))
 
+(define (procedure-required-keywords proc)
+  (arity+keywords-required-kws (procedure-arity+keywords proc)))
+
+(define (procedure-allowed-keywords proc)
+  (arity+keywords-allowed-kws (procedure-arity+keywords proc)))
+
 ;; proceudre-reduce-arity+keywords : Procedure Arity+Keywords -> Procedure
 (define (procedure-reduce-arity+keywords proc a)
   (match-define (arity+keywords arity required-kws allowed-kws) a)