Permalink
Browse files

Fix if-let.

  • Loading branch information...
1 parent 59635e8 commit f1dbb327b87b4910d75f6c3d65ebdfdb93eb0e7c Scott Olson committed Apr 10, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 kernel/core.apr
View
@@ -768,12 +768,12 @@
(defmacro if-let
"bindings => var test
- If test is true, evaluates then with var bound to the value of test,
- otherwise yields else."
+ If test is true, evaluate then with var bound to the value of test,
+ otherwise yield else."
[bindings then [else nil]]
`(let [temp# ~(bindings 1)]
(if temp#
- (let ~bindings
+ (let [~(bindings 0) temp#]
~then)
~else)))

0 comments on commit f1dbb32

Please sign in to comment.