suzanne.soy/anaphoric
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Typos and improvements in README. Thanks to O. Andreescu.

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-17 11:29:22 +02:00
parent da9a4441dc
commit b8d5e73a7b
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
README.md
View File

@ -6,12 +6,12 @@
anaphoric anaphoric
========= =========
Anaphoric conditionnal forms for `racket`: Anaphoric conditional forms for `racket`:
``` ```
(aif (member 'a lst) (aif (member 'a lst)
(displayln it) (displayln it)
(displayln "not found")) (displayln "not found")) ;; Can't use "it" in the else clause.
(awhen (member 'a lst) (awhen (member 'a lst)
(displayln it)) (displayln it))
@ -21,3 +21,19 @@ Anaphoric conditionnal forms for `racket`:
[(member 'b lst) (displayln it)] [(member 'b lst) (displayln it)]
[else (displayln "not found")]) ;; Can't use "it" in the else clause. [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.
```