From 994e8417d21d834a8e144e7903659c23de830c15 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 28 Jun 2008 20:32:17 +0200 Subject: [PATCH] Fix harmless typo in SRFI-19. --- srfi/ChangeLog | 5 +++++ srfi/srfi-19.scm | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index fe88665d0..5c17089af 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,8 @@ +2008-06-28 Ludovic Courtès + + * srfi-19.scm (priv:read-tai-utc-data): Use `eof-object?' + instead of comparing LINE with `eof'. + 2008-05-15 Julian Graham * srfi-18.scm: New file. diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm index 08302d0c8..96ef3448a 100644 --- 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 ")"))))