Fix typo in ap-map-when

2013-11-30 10:30:42 -05:00 · 2013-11-30 10:30:42 -05:00 · 5753fc0789
commit 5753fc0789
parent 77db779019
1 changed files with 1 additions and 1 deletions
--- a/hy/contrib/anaphoric.hy
+++ b/hy/contrib/anaphoric.hy
@ -50,7 +50,7 @@
  predicate function returns True."
  `(let [[f (lambda [it] ~rep)]]
     (foreach [it ~lst]
-       (if (~pred it)
+       (if (~predfn it)
         (yield (f it))
         (yield it)))))