Subject: bug#19354: (spawn-server (make-tcp-server-socket doesn't work in current git

From: Linas Vepstas <[email-masked]>
Date: Thu, 11 Dec 2014 19:04:27 -0600

After pulling from git, I have observed that the tcp scoket server
no longer works.  The below used to work fine:

$ guile
scheme@(guile-user)> (use-modules (system repl server))
scheme@(guile-user)> (use-modules (system repl common))
scheme@(guile-user)> (spawn-server (make-tcp-server-socket  #:port 1661))
$1 = #<thread 140551788197632 (1e8c800)>
scheme@(guile-user)>

then in another terminal:
$ telnet localhost 1661
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
GNU Guile 2.1.0.155-3f826
Copyright (C) 1995-2014 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (+ 2 2)
While compiling expression:
ERROR: In procedure string->utf8: Wrong type argument in position 1
(expecting string): socket

but comma commands work fine:
scheme@(guile-user)> ,h
Help Commands [abbrev]:

 ,help [all | GROUP | [-c] COMMAND]
etc.
scheme@(guile-user)> ,q
Connection closed by foreign host.

The above appears to be correct usage, per
http://www.gnu.org/software/guile/docs/master/guile.html/REPL-Servers.html
-- I don't see any obvious way of slotting a socket-to-string-to-utf8
conversion in there ...

-- Linas