Fix harmless typo in SRFI-19.

diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index fe88665..5c17089 100644 (file)
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-28  Ludovic Courtès  <ludo@gnu.org>
+
+       * srfi-19.scm (priv:read-tai-utc-data): Use `eof-object?'
+       instead of comparing LINE with `eof'.
+
 2008-05-15  Julian Graham  <joolean@gmail.com>
 
        * srfi-18.scm: New file.

diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm
index 08302d0..96ef344 100644 (file)
--- a/srfi/srfi-19.scm
+++ b/srfi/srfi-19.scm
@@ -1,6 +1,6 @@
 ;;; srfi-19.scm --- Time/Date Library
 
-;;     Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007 Free Software Foundation, Inc.
+;;     Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -193,7 +193,7 @@
   (let ((port (open-input-file filename))
         (table '()))
     (let loop ((line (read-line port)))
-      (if (not (eq? line eof))
+      (if (not (eof-object? line))
           (begin
             (let* ((data (read (open-input-string
                                 (string-append "(" line ")"))))