mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +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

8
srfi/srfi-19.scm
View file

@ -1254,12 +1254,12 @@
"Premature ending to integer read."))
((char-numeric? ch)
(set! padding-ok #f)
(accum-int port (+ (* accum 10) (priv:char->int (read-char
port)))
(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)))
(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.")))))