From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:28 -0800
Subject: Import Upstream version 2c7

---
 collect.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'collect.scm')

diff --git a/collect.scm b/collect.scm
index abdf209..35a333d 100644
--- a/collect.scm
+++ b/collect.scm
@@ -23,10 +23,10 @@
 (define-operation (collect:gen-elts <collection>) ;; return element generator
   ;; default behavior
   (cond                      ;; see utilities, below, for generators
-    ((vector? <collection>) (collect:vector-gen-elts <collection>)) 
+    ((vector? <collection>) (collect:vector-gen-elts <collection>))
     ((list?   <collection>) (collect:list-gen-elts   <collection>))
     ((string? <collection>) (collect:string-gen-elts <collection>))
-    (else 
+    (else
      (slib:error "Operation not supported: GEN-ELTS " (yasos:print obj #f)))
 ) )
 
@@ -117,7 +117,7 @@
      (let loop ( (count 0) )
        (cond
           ((< count max+1)
-           (set! <seed> 
+           (set! <seed>
                  (apply <proc> <seed> (map (lambda (g) (g)) generators)))
            (loop (collect:add1 count))
           )
@@ -171,7 +171,7 @@
 
   (define (set-loop last this idx)
      (cond
-        ((zero? idx) 
+        ((zero? idx)
          (set-cdr! last (cons <value> (cdr this)))
          <list>
         )
@@ -203,7 +203,7 @@
     (let ( (max+1 (yasos:size vec))
            (index 0)
          )
-      (lambda () 
+      (lambda ()
          (cond ((< index max+1)
                 (set! index (collect:add1 index))
                 (<accessor> vec (collect:sub1 index))
-- 
cgit v1.2.3