mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* srfi-19.scm (priv:integer-reader-exact): minor cleanups.

Browse source
This commit is contained in:
Rob Browning 2001-05-17 04:54:59 +00:00
parent c493c8c093
commit 5a1920ded2
1 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

28
srfi/srfi-19.scm
View file

@ -1247,21 +1247,21 @@
(let ((padding-ok #t))
(define (accum-int port accum nchars)
(let ((ch (peek-char port)))
(cond
((>= nchars n) accum)
((eof-object? ch)
(priv:time-error 'string->date 'bad-date-template-string
(cond
((>= nchars n) accum)
((eof-object? ch)
(priv:time-error 'string->date 'bad-date-template-string
"Premature ending to integer read."))
((char-numeric? ch)
(set! padding-ok #f)
(accum-int port (+ (* accum 10) (priv:char->int (read-char
port)))
(+ nchars 1)))
(padding-ok
(read-ch port) ; consume padding
(accum-int prot accum (+ nchars 1)))
(else ; padding where it shouldn't be
(priv:time-error 'string->date 'bad-date-template-string
((char-numeric? ch)
(set! padding-ok #f)
(accum-int port
(+ (* accum 10) (priv:char->int (read-char port)))
(+ nchars 1)))
(padding-ok
(read-char port) ; consume padding
(accum-int port accum (+ nchars 1)))
(else ; padding where it shouldn't be
(priv:time-error 'string->date 'bad-date-template-string
"Non-numeric characters in integer read.")))))
(accum-int port 0 0)))