mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix typo in SRFI-19.

Browse source 
* srfi/srfi-19.scm (priv:string->date): Check for EOF on CH, not PORT.
This commit is contained in:
Ludovic Courtès 2008-12-22 16:24:04 +01:00
parent 2898317d8b
commit 3932190521
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-19.scm
View file

@ -1406,7 +1406,7 @@
(define (priv:string->date date index format-string str-len port template-string)
(define (skip-until port skipper)
(let ((ch (peek-char port)))
(if (eof-object? port)
(if (eof-object? ch)
(priv:time-error 'string->date 'bad-date-format-string template-string)
(if (not (skipper ch))
(begin (read-char port) (skip-until port skipper))))))