fix my macro example cause I'm dumb

This commit is contained in:
Brian Picciano 2014-10-03 15:47:08 -04:00
parent 7248a929bf
commit f5cd038493

View File

@ -129,12 +129,15 @@ variable names in the body (utterly useless):
# capitalize looks for the first letter in a string and capitalizes it # capitalize looks for the first letter in a string and capitalizes it
# #
(. defn caplet [mapping body...] (. defn caplet [mapping body...]
(. eval (: elem-map (. eval
(. let
(: elem-map
(. fn [x] (. fn [x]
(. if (: mapping (: slice x 1)) (. if (: mapping (: slice x 1))
(: capitalize x) (: capitalize x)
x)) x))
body)) mapping)
body...)))
#Usage #Usage
(. caplet [foo "this is foo" (. caplet [foo "this is foo"