From c0f2c8fcf7e636feecbbce2411da2252faa879e5 Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Sun, 30 Sep 2012 09:46:48 +0200 Subject: [PATCH] Test that it works with lexical binding. --- examples.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/examples.el b/examples.el index aba8781..dad913e 100644 --- a/examples.el +++ b/examples.el @@ -1,3 +1,5 @@ +;; -*- lexical-binding: t -*- + (require 'bang) (defun even? (num) (= 0 (% num 2))) @@ -30,7 +32,9 @@ (defexamples !remove (!remove (lambda (num) (= 0 (% num 2))) '(1 2 3 4)) => '(1 3) (!remove 'even? '(1 2 3 4)) => '(1 3) - (!!remove (= 0 (% it 2)) '(1 2 3 4)) => '(1 3)) + (!!remove (= 0 (% it 2)) '(1 2 3 4)) => '(1 3) + (let ((mod 2)) (!remove (lambda (num) (= 0 (% num mod))) '(1 2 3 4))) => '(1 3) + (let ((mod 2)) (!!remove (= 0 (% it mod)) '(1 2 3 4))) => '(1 3)) (defexamples !concat (!concat) => nil