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, 33 insertions, 34 deletions

diff --git a/require.scm b/require.scm
index ebaf49f..a578349 100644
--- a/require.scm
+++ b/require.scm
@@ -17,7 +17,7 @@
 ;promotional, or sales literature without prior written consent in
 ;each case.
 
-(define *SLIB-VERSION* "2c3")
+(define *SLIB-VERSION* "2c7")
 
 ;;; Standardize msdos -> ms-dos.
 (define software-type
@@ -31,44 +31,43 @@
     (else	"")))
 
 (define *load-pathname* #f)
-(define program-vicinity
-  (let ((*vicinity-suffix*
+(define vicinity:suffix?
+  (let ((suffi
 	 (case (software-type)
-	   ((AMIGA)	'(#\: #\/))
+	   ((AMIGA)				'(#\: #\/))
+	   ((MACOS THINKC)			'(#\:))
 	   ((MS-DOS WINDOWS ATARIST OS/2)	'(#\\ #\/))
-	   ((MACOS THINKC)	'(#\:))
-	   ((NOSVE)	'(#\: #\.))
-	   ((UNIX COHERENT)	'(#\/))
-	   ((VMS)	'(#\: #\])))))
-    (lambda ()
-      (if *load-pathname*
-	  (let loop ((i (- (string-length *load-pathname*) 1)))
-	    (cond ((negative? i) "")
-		  ((memv (string-ref *load-pathname* i) *vicinity-suffix*)
-		   (substring *load-pathname* 0 (+ i 1)))
-		  (else (loop (- i 1)))))
-	  (slib:error "Not loading but called" 'program-vicinity)))))
+	   ((NOSVE)				'(#\: #\.))
+	   ((UNIX COHERENT)			'(#\/))
+	   ((VMS)				'(#\: #\])))))
+    (lambda (chr) (memv chr suffi))))
+(define (program-vicinity)
+  (if *load-pathname*
+      (let loop ((i (- (string-length *load-pathname*) 1)))
+	(cond ((negative? i) "")
+	      ((vicinity:suffix? (string-ref *load-pathname* i))
+	       (substring *load-pathname* 0 (+ i 1)))
+	      (else (loop (- i 1)))))
+      (slib:error "Not loading but called" 'program-vicinity)))
 
 (define sub-vicinity
   (case (software-type)
-    ((VMS)
-     (lambda
-      (vic name)
-      (let ((l (string-length vic)))
-	(if (or (zero? (string-length vic))
-		(not (char=? #\] (string-ref vic (- l 1)))))
-	    (string-append vic "[" name "]")
-	    (string-append (substring vic 0 (- l 1))
-			   "." name "]")))))
-    (else
-     (let ((*vicinity-suffix*
-	    (case (software-type)
-	      ((NOSVE) ".")
-	      ((UNIX COHERENT AMIGA) "/")
-	      ((MACOS THINKC) ":")
-	      ((MS-DOS WINDOWS ATARIST OS/2) "\\"))))
-       (lambda (vic name)
-	 (string-append vic name *vicinity-suffix*))))))
+    ((VMS) (lambda
+	       (vic name)
+	     (let ((l (string-length vic)))
+	       (if (or (zero? (string-length vic))
+		       (not (char=? #\] (string-ref vic (- l 1)))))
+		   (string-append vic "[" name "]")
+		   (string-append (substring vic 0 (- l 1))
+				  "." name "]")))))
+    (else (let ((*vicinity-suffix*
+		 (case (software-type)
+		   ((NOSVE) ".")
+		   ((MACOS THINKC) ":")
+		   ((MS-DOS WINDOWS ATARIST OS/2) "\\")
+		   ((UNIX COHERENT AMIGA) "/"))))
+	    (lambda (vic name)
+	      (string-append vic name *vicinity-suffix*))))))
 
 (define (make-vicinity <pathname>) <pathname>)