Import Upstream version 2d2upstream/2d2

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