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

* ioext.c (s_scm_read_line): Cast result of call to

Browse source 
scm_do_read_line to unsigned char ptr.
This commit is contained in:
Mikael Djurfeldt 2000-06-12 21:24:43 +00:00
parent a9121c98ac
commit dce41066d3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ioext.c
View file

@ -251,7 +251,7 @@ SCM_DEFINE (scm_read_line, "%read-line", 0, 1, 0,
if (pt->rw_active == SCM_PORT_WRITE)
scm_ptobs[SCM_PTOBNUM (port)].flush (port);
s = scm_do_read_line (port, &slen);
s = (char *) scm_do_read_line (port, &slen);
if (s == NULL)
term = line = SCM_EOF_VAL;