From 5753fc0789391bcdbbfc09970044c4539e23e895 Mon Sep 17 00:00:00 2001
From: agentultra <james@agentultra.com>
Date: Sat, 30 Nov 2013 10:30:42 -0500
Subject: [PATCH] Fix typo in ap-map-when

---
 hy/contrib/anaphoric.hy | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hy/contrib/anaphoric.hy b/hy/contrib/anaphoric.hy
index c9a0fef..d0a163a 100644
--- 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)))))