49 lines
1.5 KiB
Markdown
49 lines
1.5 KiB
Markdown
[](https://travis-ci.org/jsmaniac/anaphoric)
|
|
[](https://codecov.io/gh/jsmaniac/anaphoric)
|
|
[](http://jsmaniac.github.io/travis-stats/#jsmaniac/anaphoric)
|
|
[](http://docs.racket-lang.org/anaphoric/)
|
|
[](https://github.com/jsmaniac/anaphoric/issues)
|
|
[](https://creativecommons.org/publicdomain/zero/1.0/)
|
|
|
|
anaphoric
|
|
=========
|
|
|
|
Anaphoric conditional forms for `racket`:
|
|
|
|
```
|
|
(aif (member 'a lst)
|
|
(displayln it)
|
|
(displayln "not found")) ;; Can't use "it" in the else clause.
|
|
|
|
(awhen (member 'a lst)
|
|
(displayln it))
|
|
|
|
(acond
|
|
[(member 'a lst) (displayln it)]
|
|
[(member 'b lst) (displayln it)]
|
|
[else (displayln "not found")]) ;; Can't use "it" in the else clause.
|
|
```
|
|
|
|
This package also provides hygienic versions:
|
|
|
|
```
|
|
(if-let [x (member 'a lst)]
|
|
(displayln x)
|
|
(displayln "not found")) ;; Can't use "x" in the else clause.
|
|
|
|
(when-let [x (member 'a lst)]
|
|
(displayln it))
|
|
|
|
(cond-let x
|
|
[(member 'a lst) (displayln x)]
|
|
[(member 'b lst) (displayln x)]
|
|
[else (displayln "not found")]) ;; Can't use "x" in the else clause.
|
|
```
|
|
|
|
Installation
|
|
------------
|
|
|
|
```
|
|
raco pkg install --deps search-auto anaphoric
|
|
```
|