From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:06:40 -0800
Subject: New upstream version 3b5

---
 collectx.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 collectx.scm

(limited to 'collectx.scm')

diff --git a/collectx.scm b/collectx.scm
old mode 100644
new mode 100755
index 5ca0ca5..02d4d06
--- a/collectx.scm
+++ b/collectx.scm
@@ -155,8 +155,8 @@
             (cond ((< count!5 max+1!4)
                    (set! <seed>!1
                      (apply <proc>!1
-                            <seed>!1
-                            (map (lambda (g!7) (g!7)) generators!4)))
+                            (cons <seed>!1
+                                  (map (lambda (g!7) (g!7)) generators!4))))
                    (loop!6 (collect:add1 count!5)))
                   (else <seed>!1))))))))
 
-- 
cgit v1.2.3