[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#19354: (spawn-server (make-tcp-server-socket doesn't work in current
From: |
Mark H Weaver |
Subject: |
bug#19354: (spawn-server (make-tcp-server-socket doesn't work in current git |
Date: |
Sun, 14 Dec 2014 10:34:45 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) |
Linas Vepstas <address@hidden> 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