path: root/tests/008/filtenv.txr

@(bind a "x")
@(define f (in out))
@(bind out @(upcase-str a))
@(end)
@(bind b `@{a :filter (:fun f)}`)