commit 352f78287b9fc4fcce117dc834587297d2bd27c6 parent 6e5e8921f4c92e856ae93eaa21f52128a86416ea Author: AlexKnauth <alexander@knauth.org> Date: Thu, 19 May 2016 23:51:53 -0400 use kw-lists-lambda.rkt Diffstat:
| M | kw-utils/kw-hash-lambda.rkt | | | 4 | ++-- |
| A | kw-utils/kw-lists-lambda.rkt | | | 8 | ++++++++ |
2 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/kw-utils/kw-hash-lambda.rkt b/kw-utils/kw-hash-lambda.rkt @@ -21,13 +21,13 @@ body ...))]))) (module+ unstable - (require (submod "keyword-lambda.rkt" private)) + (require "kw-lists-lambda.rkt") (define-syntax kw-hash-case-lambda (lambda (stx) (syntax-parse stx [(kw-hash-case-lambda #:kws kw-hash:id [rest-args body:expr ...+]) - #'(keyword-lists-case-lambda kws kw-args + #'(kw-lists-case-lambda kws kw-args [rest-args (let ([kw-hash (keyword-app-make-kw-hash kws kw-args)]) body ...)])]))) diff --git a/kw-utils/kw-lists-lambda.rkt b/kw-utils/kw-lists-lambda.rkt @@ -0,0 +1,8 @@ +#lang racket/base + +(provide kw-lists-lambda kw-lists-case-lambda) + +(require (only-in "keyword-lambda.rkt" + [keyword-lambda kw-lists-lambda])) +(require (only-in (submod "keyword-lambda.rkt" private) + [keyword-lists-case-lambda kw-lists-case-lambda]))