mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Fix harmless typo in SRFI-19.

Browse source
This commit is contained in:
Ludovic Courtès 2008-06-28 20:32:17 +02:00
parent a9f32e12c4
commit 9472870b85
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/ChangeLog
View file

@ -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-04-28 Ludovic Courtès <ludo@gnu.org>
* srfi-1.c (scm_srfi1_partition): Properly type-check LIST.

4
srfi/srfi-19.scm
View file

@ -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
@ -231,7 +231,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 ")"))))