summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-10-17 18:10:30 +0000
committerJim Blandy <jimb@red-bean.com>1998-10-17 18:10:30 +0000
commitd9803e92bacef762eeab98a4a6e6efe6d5af7dd3 (patch)
treebe2e193ee89fcc162fca7e73c7411740120c8065 /libguile/socket.c
parentccd9642e20ccf5b96ce178df2bdf45895d9a9855 (diff)
downloadguile-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.c1
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;
}