diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-10-17 18:10:30 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-10-17 18:10:30 +0000 |
commit | d9803e92bacef762eeab98a4a6e6efe6d5af7dd3 (patch) | |
tree | be2e193ee89fcc162fca7e73c7411740120c8065 /libguile/socket.c | |
parent | ccd9642e20ccf5b96ce178df2bdf45895d9a9855 (diff) | |
download | guile-d9803e92bacef762eeab98a4a6e6efe6d5af7dd3.tar.gz |
Don't use local_fgets on sockets; ftell doesn't work on sockets.
(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.
Diffstat (limited to 'libguile/socket.c')
-rw-r--r-- | libguile/socket.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/socket.c b/libguile/socket.c index 6e35b9909..9b5f20497 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -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; } |