Test that it works with lexical binding.

master
Magnar Sveen 14 years ago
parent ec27b47648
commit c0f2c8fcf7
  1. 6
      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

Loading…
Cancel
Save