mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

* fports.c (scm_pipob): Use scm_generic_fgets for line i/o, since

Browse source 
scm_fgets now depends on ftell(3) to know how many bytes were
	read.  Sigh.
This commit is contained in:
Tim Pierce 1997-12-20 13:52:09 +00:00
parent 66d1e129c9
commit 377474477c
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
1997-12-20 Tim Pierce <twp@skepsis.com>
* fports.c (scm_pipob): Use scm_generic_fgets for line i/o, since
scm_fgets now depends on ftell(3) to know how many bytes were
read. Sigh.
1997-12-15 Tim Pierce <twp@skepsis.com> 1997-12-15 Tim Pierce <twp@skepsis.com>
* gh_data.c (gh_scm2newstr, gh_get_substr): Use RO macros for * gh_data.c (gh_scm2newstr, gh_get_substr): Use RO macros for

2
libguile/fports.c
View file

@ -483,7 +483,7 @@ scm_ptobfuns scm_pipob =
(scm_sizet (*) SCM_P ((char *, scm_sizet, scm_sizet, SCM))) local_ffwrite, (scm_sizet (*) SCM_P ((char *, scm_sizet, scm_sizet, SCM))) local_ffwrite,
(int (*) SCM_P ((SCM))) local_fflush, (int (*) SCM_P ((SCM))) local_fflush,
(int (*) SCM_P ((SCM))) scm_fgetc, (int (*) SCM_P ((SCM))) scm_fgetc,
(char * (*) SCM_P ((SCM, int *))) scm_fgets, (char * (*) SCM_P ((SCM, int *))) scm_generic_fgets,
(int (*) SCM_P ((SCM))) local_pclose (int (*) SCM_P ((SCM))) local_pclose
}; };