bug#21993: REPL Servers broken on OSX.

bug#21993: REPL Servers broken on OSX.

[Park SungMin]

Hello, I’m guile newbie. I use GNU Guile 2.0.11 on OSX.

I tested first... “guile —listen” on Terminal, then geiser-connect(geiser-20151029.1729) on Emacs(24.5.2)..
but I get Error Message…

second test… I run two guile. 
in server guile..
(use-modules (system repl server))
(spawn-server (make-tcp-server-socket))

then in client guile...
(define client (socket PF_INET SOCK_STREAM 0))
(connect client AF_INET (inet-aton "127.0.0.1") 37146)

I get same Error Message with first test…

I don’t know is it guile bug? … on Ubuntu, It works fine.
This is Backtrace… Thank you!

Backtrace:
In ice-9/boot-9.scm:
 157: 13 [catch #t #<catch-closure 110b24d20> ...]
In unknown file:
   ?: 12 [apply-smob/1 #<catch-closure 110b24d20>]
In ice-9/boot-9.scm:
 157: 11 [catch #t #<procedure 110b28ea0 at system/repl/server.scm:140:10 ()> ...]
In unknown file:
   ?: 10 [with-continuation-barrier #<procedure 110b24860 at system/repl/server.scm:158:3 ()>]
In ice-9/boot-9.scm:
 157: 9 [catch #t #<catch-closure 110b24840> ...]
In unknown file:
   ?: 8 [apply-smob/1 #<catch-closure 110b24840>]
In system/repl/server.scm:
 164: 7 [#<procedure 110b24860 at system/repl/server.scm:158:3 ()>]
In system/repl/repl.scm:
 142: 6 [start-repl* scheme #f #<procedure prompting-meta-read (repl)>]
 168: 5 [run-repl* # #<procedure prompting-meta-read (repl)>]
 123: 4 [#<procedure 110928620 at system/repl/repl.scm:118:4 (key . args)> system-error ...]
In ice-9/format.scm:
1593: 3 [format #<input-output: socket 14> "While reading expression:\n"]
 766: 2 [format:format-work "While reading expression:\n" ()]
  81: 1 [anychar-dispatch]
In unknown file:
   ?: 0 [write-char #\e #<input-output: socket 14>]

ERROR: In procedure write-char:
ERROR: In procedure fport_write: Resource temporarily unavailable
Backtrace:
In ice-9/boot-9.scm:
 157: 2 [catch #t #<catch-closure 110b24d20> ...]
In unknown file:
   ?: 1 [apply-smob/1 #<catch-closure 110b24d20>]
In ice-9/boot-9.scm:
 157: 0 [catch #t #<procedure 110b28ea0 at system/repl/server.scm:140:10 ()> ...]

ice-9/boot-9.scm:157:17: In procedure catch:
ice-9/boot-9.scm:157:17: In procedure fport_write: Resource temporarily unavailable

bug#21993: REPL Servers broken on OSX.

[R Primus]

[-- Attachment #1: Type: text/plain, Size: 2022 bytes --]

Sun 15 May 2016 14:58:40 BST

This is easily replicated:

1.  guile --listen
2.
rprimus@rp-mbp-2 ~ % telnet localhost 37146
Trying ::1...
telnet: connect to address ::1: Connection refused
Trying fe80::1...
telnet: connect to address fe80::1: Connection refused
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
GNU Guile 2.0.11
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)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable
scheme@(guile-user)> While reading expression:
ERROR: In procedure fport_fill_input: Resource temporarily unavailable


Do the default socket options need to be changed for OSX?

-- 
-primus (Train yourself and be your own master.)
"First solve the problem, then code!"
Narrowness of experience leads to narrowness of imagination.
http://www.catb.org/esr/faqs/smart-questions.html
http://www.chiark.greenend.org.uk/~sgtatham/bugs.html

GPG Key: DB3FB476
Key fingerprint: B0FB C67E 2E7E 7032 7FE6  7FBC 28E9 2848 DB3F B476

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 931 bytes --]