# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1358086855 -7200
# Node ID 94b0ca71a583ece3995a04b930ce167d30e4c9ec
# Parent  7b1ae3e0c9e3c7f3e49c75eb83fc7f2d918cd8e2
Fix (info "(elisp) Surprising Local Vars").

diff -r 7b1ae3e0c9e3 -r 94b0ca71a583 .emacs-my
--- a/.emacs-my	Sun Jan 13 15:57:08 2013 +0200
+++ b/.emacs-my	Sun Jan 13 16:20:55 2013 +0200
@@ -79,12 +79,13 @@
 
 (defmacro my-filter (pred list)
   "Construct list with elements from LIST which satisfy PRED."
-  `(let ( (r '(nil)) )
-     (mapc (lambda (item)
-             (when (,pred item)
-               (nconc r (cons item nil))))
-           ,list)
-     (cdr r)))
+  (let ( (r (make-symbol "r_")) )
+    `(let ( (,r (list nil)) )
+       (mapc (lambda (item)
+               (when (,pred item)
+                 (nconc ,r (cons item nil))))
+             ,list)
+       (cdr ,r))))
 
 (defun my-fold (f x list)
   "Recursively applies (F i j) to LIST starting with X.