mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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 b09fad7fa5
commit 2f5df78cba
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

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