added null operator to (picrin control list)

2014-06-28 12:07:56 +09:00 · 2014-06-28 12:07:56 +09:00 · c26fc144f3
parent f37c88c174
commit c26fc144f3
1 changed files with 4 additions and 1 deletions
--- a/contrib/20.for/piclib/for.scm
+++ b/contrib/20.for/piclib/for.scm
@ -15,4 +15,7 @@
  (define (yield x)
    (list x))

-  (export for in yield))
+  (define (null . x)
+    '())
+
+  (export for in yield null))