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 harmless typo in SRFI-19.

Browse source
This commit is contained in:
Ludovic Courtès 2008-06-28 20:32:17 +02:00
parent 95c6523b03
commit 994e8417d2
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-05-15 Julian Graham <joolean@gmail.com> 2008-05-15 Julian Graham <joolean@gmail.com>
* srfi-18.scm: New file. * srfi-18.scm: New file.

4
srfi/srfi-19.scm
View file

@ -1,6 +1,6 @@
;;; srfi-19.scm --- Time/Date Library ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -193,7 +193,7 @@
(let ((port (open-input-file filename)) (let ((port (open-input-file filename))
(table '())) (table '()))
(let loop ((line (read-line port))) (let loop ((line (read-line port)))
(if (not (eq? line eof)) (if (not (eof-object? line))
(begin (begin
(let* ((data (read (open-input-string (let* ((data (read (open-input-string
(string-append "(" line ")")))) (string-append "(" line ")"))))