mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

Don't use local_fgets on sockets; ftell doesn't work on sockets.

Browse source 
(Thanks to Jorgen "forcer" Schaefer.)
* ports.h (SCM_NOFTELL): New flag.
* fports.c (local_fgets): If it's set, use the generic fgets.
* socket.c (scm_socket): Set SCM_NOFTELL on the ports we produce.
This commit is contained in:
Jim Blandy 1998-10-17 18:10:30 +00:00
parent ccd9642e20
commit d9803e92ba
3 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/socket.c
View file

@ -107,6 +107,7 @@ scm_socket (family, style, proto)
SCM_DEFER_INTS;
fd = socket (SCM_INUM (family), SCM_INUM (style), SCM_INUM (proto));
result = scm_sock_fd_to_port (fd, s_socket);
SCM_SETOR_CAR (result, SCM_NOFTELL);
SCM_ALLOW_INTS;
return result;
}