diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2012-08-23 18:17:08 +0200 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2012-08-23 18:17:08 +0200 |
commit | 60a29ffea0b596ae19b3a5bafbcc47bfec50b3b9 (patch) | |
tree | 200e6baf266dbcfe4253bf2724dce05e9622b49a | |
parent | ccb98a34d4871f356e7673e86be63b507e91fa8d (diff) | |
download | guile-60a29ffea0b596ae19b3a5bafbcc47bfec50b3b9.tar.gz |
libguile: Fix bug: Don't expect 'send' string to be writable
Expecting writable strings fails if the string is the result
of 'symbol->string', for example.
* libguile/socket.c (scm_send): Use 'scm_i_string_chars'.
-rw-r--r-- | libguile/socket.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c index ddc9b0ab0..964f72c45 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -1482,7 +1482,7 @@ SCM_DEFINE (scm_send, "send", 2, 1, 0, fd = SCM_FPORT_FDES (sock); len = scm_i_string_length (message); - src = scm_i_string_writable_chars (message); + src = scm_i_string_chars (message); SCM_SYSCALL (rv = send (fd, src, len, flg)); scm_i_string_stop_writing (); |