From 8a114e1b54d1711a6edfad1f8c78f54db7b8e157 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Tue, 4 Feb 2014 14:21:13 -0500
Subject: [PATCH] REPL Server: Remove unneeded error case in 'run-server'.

* module/system/repl/server.scm (run-server): Remove case that handled
  'interrupt' exceptions specially.  It is no longer needed since
  e6c8e6047ed2e772cc4e1fb5ad4d389e5c616feb (REPL Server: Don't establish
  a SIGINT handler.)
---
 module/system/repl/server.scm | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm
index bbabaef38..4f3391c0b 100644
--- a/module/system/repl/server.scm
+++ b/module/system/repl/server.scm
@@ -76,10 +76,6 @@
          ((port-closed? server-socket)
           ;; Shutting down.
           #f)
-         ((eq? k 'interrupt)
-          ;; Interrupt.
-          (close-socket! server-socket)
-          #f)
          (else
           (warn "Error accepting client" k args)
           ;; Retry after a timeout.