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

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

  * New upstream version
  * Revert back to free.  Is now so.

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

  * New upstream version.
  * Move to non-free.  FSF pointed out license doesn't allow modified
    versions to be distributed.
  * Get a complete list of copyrights that apply to the source into
    copyright file.
  * Remove setup for guile 1.3.
  * Remove postrm.  Just calling install-info (lintian)  Move install-info
    call to prerm since doc-base doesn't do install-info.

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

  * Change info location to section "The Algorithmic Language Scheme" to
    match up with where guile puts it's files.
  * Postinst is running slibconfig now.  (Closes: #75891)

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

  * Stop installing slibconfig (for guile).
  * In postinst if /usr/sbin/slibconnfig exists call it (Close: #75843
    #75891).

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

  * New upstream (Closes: #74760)
  * replace string-index with strsrch:string-index in http-cgi.scm.
  * Add doc-base support (Closes: #31163)

1 files changed, 16 insertions, 16 deletions

diff --git a/scanf.scm b/scanf.scm
index 6d3ee6e..7122d95 100644
--- a/scanf.scm
+++ b/scanf.scm
@@ -1,9 +1,9 @@
 ;;;;"scanf.scm" implemenation of formated input
 ;Copyright (C) 1996, 1997 Aubrey Jaffer
 ;
-;Permission to copy this software, to redistribute it, and to use it
-;for any purpose is granted, subject to the following restrictions and
-;understandings.
+;Permission to copy this software, to modify it, to redistribute it,
+;to distribute modified versions, and to use it for any purpose is
+;granted, subject to the following restrictions and understandings.
 ;
 ;1.  Any copy made of this software must include this copyright notice
 ;in full.
@@ -173,19 +173,19 @@
 				       (memv (peek-char input-port) '(#\E #\e)))
 				  (read-input-char)
 				  (width--)
-				  (let ((expsign
-					 (case (peek-char input-port)
-					   ((#\-) (read-input-char)
-						  (width--)
-						  "-")
-					   ((#\+) (read-input-char)
-						  (width--)
-						  "+")
-					   (else "")))
-					(expint
-					 (and
-					  (or (not width) (positive? width))
-					  (read-word width char-non-numeric?))))
+				  (let* ((expsign
+					  (case (peek-char input-port)
+					    ((#\-) (read-input-char)
+						   (width--)
+						   "-")
+					    ((#\+) (read-input-char)
+						   (width--)
+						   "+")
+					    (else "")))
+					 (expint
+					  (and
+					   (or (not width) (positive? width))
+					   (read-word width char-non-numeric?))))
 				    (and expint (string-append
 						 "e" expsign expint))))
 				 (else #f))))