15 lines
329 B
Racket
15 lines
329 B
Racket
#lang racket/base
|
|
|
|
(provide aand it)
|
|
(require anaphoric/it
|
|
anaphoric/aif
|
|
syntax/parse/define
|
|
(for-syntax racket/base))
|
|
|
|
(define-syntax aand
|
|
(syntax-parser
|
|
[(_) #'#true]
|
|
[(_ body:expr) #'body]
|
|
[(_ [variable:id condition:expr] rest ...+)
|
|
#'(aif condition (and-let rest ...) #false)]))
|