15 lines
337 B
Racket
15 lines
337 B
Racket
#lang racket
|
|
|
|
(require scribble/manual
|
|
(for-label lens/private/base/main))
|
|
|
|
(provide deflens
|
|
deflenses)
|
|
|
|
|
|
(define-syntax-rule (deflens lens-id pre-flow ...)
|
|
(defthing lens-id lens? pre-flow ...))
|
|
|
|
(define-syntax-rule (deflenses (lens-id ...) pre-flow ...)
|
|
(deftogether [(defthing lens-id lens?) ...] pre-flow ...))
|