[Guile-commits] 01/03: Cosmetic REPL server improvements

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 0cd60c3f2660f6fe08845a4bc1836ac8e933e9e6
Author: Andy Wingo <address@hidden>
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))