mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

Cosmetic REPL server improvements

Browse source 
* module/system/repl/server.scm (run-server*): Cosmetic improvements.
This commit is contained in:
Andy Wingo 2017-03-01 17:23:29 +01:00
parent 374b88580c
commit 0cd60c3f26
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
module/system/repl/server.scm
View file

@ -116,16 +116,16 @@
(sigaction SIGPIPE SIG_IGN)
(add-open-socket! server-socket shutdown-server)
(listen server-socket 5)
(let lp ((client (accept-new-client)))
;; If client is false, we are shutting down.
(if client
(let ((client-socket (car client))
(client-addr (cdr client)))
(make-thread serve-client client-socket client-addr)
(lp (accept-new-client)))
(begin (close shutdown-write-pipe)
(close shutdown-read-pipe)
(close server-socket)))))
(let lp ()
(match (accept-new-client)
(#f
;; If client is false, we are shutting down.
(close shutdown-write-pipe)
(close shutdown-read-pipe)
(close server-socket))
((client-socket . client-addr)
(make-thread serve-client client-socket client-addr)
(lp)))))
(define* (spawn-server #:optional (server-socket (make-tcp-server-socket)))
(make-thread run-server server-socket))