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

---
 collect.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 collect.scm

(limited to 'collect.scm')

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