wingo pushed a commit to branch master in repository guile. commit 0cd60c3f2660f6fe08845a4bc1836ac8e933e9e6 Author: Andy Wingo <wi...@pobox.com> Date: Wed Mar 1 17:23:29 2017 +0100
Cosmetic REPL server improvements * module/system/repl/server.scm (run-server*): Cosmetic improvements. --- module/system/repl/server.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm index f6981ed..cdb43cd 100644 --- a/module/system/repl/server.scm +++ b/module/system/repl/server.scm @@ -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))