14 lines
312 B
Racket
14 lines
312 B
Racket
#lang racket/base
|
|
|
|
(provide afilter it)
|
|
(require anaphoric/it
|
|
racket/stxparam
|
|
(for-syntax racket/base))
|
|
|
|
(define-syntax-rule (afilter body lst)
|
|
(let ([func
|
|
(λ (var)
|
|
(syntax-parameterize ([it (make-rename-transformer #'var)])
|
|
body))])
|
|
(filter func lst)))
|