|
From: | GNU bug Tracking System |
Subject: | [debbugs-tracker] bug#19354: closed ((spawn-server (make-tcp-server-socket doesn't work in current git) |
Date: | Sun, 14 Dec 2014 15:37:02 +0000 |
Your message dated Sun, 14 Dec 2014 10:34:45 -0500 with message-id <address@hidden> and subject line Re: bug#19354: (spawn-server (make-tcp-server-socket doesn't work in current git has caused the debbugs.gnu.org bug report #19354, regarding (spawn-server (make-tcp-server-socket doesn't work in current git to be marked as done. (If you believe you have received this mail in error, please contact address@hidden) -- 19354: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=19354 GNU Bug Tracking System Contact address@hidden with problems
--- Begin Message ---Subject: (spawn-server (make-tcp-server-socket doesn't work in current git Date: Thu, 11 Dec 2014 19:04:27 -0600 -- LinasThe 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 ...etc.$ telnet localhost 1661then in another terminal:After pulling from git, I have observed that the tcp scoket server$ guile
no longer works. The below used to work fine:
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)>
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]
scheme@(guile-user)> ,q
Connection closed by foreign host.
--- End Message ---
--- Begin Message ---Subject: Re: 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
--- End Message ---
[Prev in Thread] | Current Thread | [Next in Thread] |