syntax (kw-hash-lambda formals #:kws kw-hash-id body-expr ...+)

(kw-lists-lambda kws kw-args formals

(let ([kw-hash-id (keyword-apply make-kw-hash kws kw-args '())])

body ...))

> (require kw-utils/kw-hash-lambda)

> (define proc     (kw-hash-lambda rest-args #:kws kw-hash       (list rest-args kw-hash)))

> (proc 0 1 2 #:a 'a #:b 'b)

'((0 1 2) #hash((#:a . a) (#:b . b)))

syntax (kw-hash-case-lambda #:kws kw-hash-id [formals body-expr ...+] ...)

(kw-lists-case-lambda kws kw-args

[formals

(let ([kw-hash-id (keyword-apply make-kw-hash kws kw-args '())])

body ...)]

...)

> (require kw-utils/kw-hash-lambda)

> (define proc     (kw-hash-case-lambda #:kws kw-hash       [(a)        (list a kw-hash)]       [(a b)        (list a b kw-hash)]))

> (proc 0 #:a 'a #:b 'b)

'(0 #hash((#:a . a) (#:b . b)))

> (proc 0 1 #:a 'a #:b 'b)

'(0 1 #hash((#:a . a) (#:b . b)))

procedure (apply/kw-hash proc kw-hash v ... lst) → any

proc : procedure?

kw-hash : (hash/c keyword? any/c)

v : any/c

lst : list?

> (require kw-utils/kw-hash racket/math)

> (define (kinetic-energy #:m m #:v v)     (* 1/2 m (sqr v)))

> (apply/kw-hash kinetic-energy (hash '#:m 2 '#:v 1) '())

1

procedure (app/kw-hash proc kw-hash v ...) → any

proc : procedure?

kw-hash : (hash/c keyword? any/c)

v : any/c

procedure (make-kw-hash #:<kw> kw-arg ...) → (hash/c keyword? any/c)

kw-arg : any/c

syntax (kw-hash-> [arg/c ...] #:kws kw-hash/c any)

(kw-hash-> [arg/c ...] #:rest rest/c #:kws kw-hash/c any)