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

From: Mark H Weaver <[email-masked]>
Date: Sun, 14 Dec 2014 10:34:45 -0500

Linas Vepstas <[email-masked]> writes:

> 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
[...]
> scheme@(guile-user)> (+ 2 2)
> While compiling expression:
> ERROR: In procedure string->utf8: Wrong type argument in position 1
> (expecting string): socket

The problem here is that (port-filename <socket>) returns the symbol
'socket', whereas our assembler assumed that any non-#f filename stored
in the source properties was a string.

Fixed in 015c3c08af2064145d423cef0d94f04069c3e87e.

    Thanks!
      Mark