commit 3cc298679c8f7895be9f34da9b5686f8d81a3617 parent 4200c36367841181b621ac598fd474e58b020f9a Author: AlexKnauth <alexander@knauth.org> Date: Thu, 19 May 2016 23:59:23 -0400 move kw-hash-case-lambda out of unstable Diffstat:
| M | kw-utils/kw-hash-lambda.rkt | | | 22 | ++++++++++------------ |
1 file changed, 10 insertions(+), 12 deletions(-)
diff --git a/kw-utils/kw-hash-lambda.rkt b/kw-utils/kw-hash-lambda.rkt @@ -1,8 +1,8 @@ #lang racket/base -(provide kw-hash-lambda) +(provide kw-hash-lambda kw-hash-case-lambda) (module+ unstable - (provide kw-hash-case-lambda)) + (provide )) (require "kw-lists-lambda.rkt" "kw-hash.rkt" @@ -20,16 +20,14 @@ (let ([kw-hash (keyword-app-make-kw-hash kws kw-args)]) body ...))]))) -(module+ unstable - (define-syntax kw-hash-case-lambda - (lambda (stx) - (syntax-parse stx - [(kw-hash-case-lambda #:kws kw-hash:id [rest-args body:expr ...+]) - #'(kw-lists-case-lambda kws kw-args - [rest-args - (let ([kw-hash (keyword-app-make-kw-hash kws kw-args)]) - body ...)])]))) - ) +(define-syntax kw-hash-case-lambda + (lambda (stx) + (syntax-parse stx + [(kw-hash-case-lambda #:kws kw-hash:id [rest-args body:expr ...+]) + #'(kw-lists-case-lambda kws kw-args + [rest-args + (let ([kw-hash (keyword-app-make-kw-hash kws kw-args)]) + body ...)])]))) (module+ test (test-case "kw-hash-lambda"