www

commit 4200c36367841181b621ac598fd474e58b020f9a
parent 9ea736ccc25db24a8a64e9fe6e45237784834434
Author: AlexKnauth <alexander@knauth.org>
Date:   Thu, 19 May 2016 23:58:33 -0400

use kw-lists-lambda in kw-hash-lambda.rkt

Diffstat:
M
kw-utils/kw-hash-lambda.rkt
 | 
6
++----

1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/kw-utils/kw-hash-lambda.rkt b/kw-utils/kw-hash-lambda.rkt
@@ -4,7 +4,7 @@
 (module+ unstable
   (provide kw-hash-case-lambda))
 
-(require "keyword-lambda.rkt"
+(require "kw-lists-lambda.rkt"
          "kw-hash.rkt"
          (for-syntax racket/base
                      syntax/parse
@@ -16,13 +16,11 @@
   (lambda (stx)
     (syntax-parse stx
       [(kw-hash-lambda rest-args #:kws kw-hash:id body:expr ...+)
-       #'(keyword-lambda (kws kw-args . rest-args)
+       #'(kw-lists-lambda kws kw-args rest-args
            (let ([kw-hash (keyword-app-make-kw-hash kws kw-args)])
              body ...))])))
 
 (module+ unstable
-  (require "kw-lists-lambda.rkt")
-
   (define-syntax kw-hash-case-lambda
     (lambda (stx)
       (syntax-parse stx