commit b8d5e73a7b783097c60d3046c9868a7b68656b5c parent da9a4441dc326865befc5c687c357a1da8f4eef1 Author: Georges Dupéron <georges.duperon@gmail.com> Date: Wed, 17 Aug 2016 11:29:22 +0200 Typos and improvements in README. Thanks to O. Andreescu. Diffstat:
| M | README.md | | | 20 | ++++++++++++++++++-- |
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/README.md b/README.md @@ -6,12 +6,12 @@ anaphoric ========= -Anaphoric conditionnal forms for `racket`: +Anaphoric conditional forms for `racket`: ``` (aif (member 'a lst) (displayln it) - (displayln "not found")) + (displayln "not found")) ;; Can't use "it" in the else clause. (awhen (member 'a lst) (displayln it)) @@ -20,4 +20,20 @@ Anaphoric conditionnal forms for `racket`: [(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. ``` \ No newline at end of file