From 52a58e523111acefe858f0ba2a7ce03da81c7cd0 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Tue, 22 Jul 2014 21:54:02 +0900
Subject: [PATCH] add test case for `null` of (picrin control for)

---
 contrib/20.for/t/test.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/contrib/20.for/t/test.scm b/contrib/20.for/t/test.scm
index 0f58ae4e..64873a4b 100644
--- a/contrib/20.for/t/test.scm
+++ b/contrib/20.for/t/test.scm
@@ -11,3 +11,11 @@
        (let ((n (in '(1 2 3)))
              (c (in '(a b c))))
          (yield (list n c)))))
+
+(test '((2 a) (2 b) (2 c))
+      (for
+       (let ((n (in '(1 2 3)))
+             (c (in '(a b c))))
+         (if (even? n)
+             (yield (list n c))
+             (null)))))