diff options
Diffstat (limited to 'scanf.scm')
| -rw-r--r-- | scanf.scm | 32 |
1 files changed, 16 insertions, 16 deletions
@@ -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)))) |