[Guile-commits] 06/10: [libguile] Fix bug: Don't expect ‘send’ string to be writable

[Thien-Thi Nguyen]

ttn pushed a commit to branch branch_release-1-8
in repository guile.

commit 3ca22333b738b2a56fb1d4a047cd3bfa16e2ca6d
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Mar 3 06:44:58 2017 +0100

    [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’.
---
 libguile/socket.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/socket.c b/libguile/socket.c
index cb954f4..96f2572 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 ();