diff options
author | Mark H Weaver <mhw@netris.org> | 2014-02-04 14:21:13 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-02-04 15:15:12 -0500 |
commit | 8a114e1b54d1711a6edfad1f8c78f54db7b8e157 (patch) | |
tree | 6c85ac0880ff4c7690acedb7282846eb4008cf2f /module/system/repl/server.scm | |
parent | 5e74217c7cf07ad474cdce1a01e049492e7ef1b7 (diff) | |
download | guile-8a114e1b54d1711a6edfad1f8c78f54db7b8e157.tar.gz |
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.)
Diffstat (limited to 'module/system/repl/server.scm')
-rw-r--r-- | module/system/repl/server.scm | 4 |
1 files changed, 0 insertions, 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. |