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

* fports.c (scm_setvbuf): Use free' instead of scm_must_free'

Browse source 
since read and write buffers are allocated by `malloc'.
This commit is contained in:
Mikael Djurfeldt 2000-06-13 00:49:40 +00:00
parent eb422a4c18
commit f30c9c8f53
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/fports.c
View file

@ -184,9 +184,9 @@ SCM_DEFINE (scm_setvbuf, "setvbuf", 2, 1, 0,
/* silently discards buffered chars. */ /* silently discards buffered chars. */
if (pt->read_buf != &pt->shortbuf) if (pt->read_buf != &pt->shortbuf)
scm_must_free (pt->read_buf); free (pt->read_buf);
if (pt->write_buf != &pt->shortbuf) if (pt->write_buf != &pt->shortbuf)
scm_must_free (pt->write_buf); free (pt->write_buf);
scm_fport_buffer_add (port, csize, csize); scm_fport_buffer_add (port, csize, csize);
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;