From 2f5df78cba64c05c650d403242f08f178af79647 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 22 Dec 2008 16:24:04 +0100
Subject: [PATCH] Fix typo in SRFI-19.

* srfi/srfi-19.scm (priv:string->date): Check for EOF on CH, not PORT.
---
 srfi/srfi-19.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm
index ce771d034..ffce9901c 100644
--- a/srfi/srfi-19.scm
+++ b/srfi/srfi-19.scm
@@ -1451,7 +1451,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))))))