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

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 19354 in the body.
You can then email your comments to 19354 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Linas Vepstas <linasvepstas <at> gmail.com>
To: bug-guile <at> gnu.org
Subject: (spawn-server (make-tcp-server-socket doesn't work in current git
Date: Thu, 11 Dec 2014 19:04:27 -0600

[Message part 1 (text/plain, inline)]

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

[Message part 2 (text/html, inline)]

Message #10 received at 19354-done <at> debbugs.gnu.org (full text, mbox):

From: Mark H Weaver <mhw <at> netris.org>
To: Linas Vepstas <linasvepstas <at> gmail.com>
Cc: 19354-done <at> debbugs.gnu.org
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

Linas Vepstas <linasvepstas <at> gmail.com> 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.