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

[Linas Vepstas]

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