Import Debian changes 2c7-1debian/2c7-1

slib (2c7-1) unstable; urgency=low

  * New upstream.
  * Add slibconfig back in.

slib (2c6-2) unstable; urgency=low

  * Remove the slib$(VERSION).info file.  Cut the diff back down to
    size. 

slib (2c6-1) unstable; urgency=low

  * New upstream.
  * Move docs to /usr/share. Up standards version. add /usr/doc symlink.
    Move info files.  Remove undocumented link.

slib (2c5-6) unstable; urgency=low

  * Lowercase two vars in yasyn.scm (Fixes bug #37222)

slib (2c5-5) unstable; urgency=low

  * Fix it so string-index isn't defined (now there is a
    strsrch:string-index) (Fixes #38812)

slib (2c5-4) unstable; urgency=low

  * Don't run slibconfig in postinst.  (Fixes bug #38253, #37733, #37715,
    #37746,  #37809, #37917, #38123, #38462)

slib (2c5-3) unstable; urgency=low

  * Run slibconfig in postinst.  It was commented out there, but I don't
    see any old bug reports on why it was commented out, so let's try
    again. :)  (Fixes bug #37221)

slib (2c5-2) unstable; urgency=low

  * Link mklibcat.scm to mklibcat.  Fixes a problem with using slib with
    guile. 

slib (2c5-1) unstable; urgency=low

  * New upstream.

slib (2c3-4) unstable; urgency=low

  * New maintainer.

1 files changed, 5 insertions, 5 deletions

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))