mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

REPL Server: Remove unneeded error case in 'run-server'.

Browse source 
* module/system/repl/server.scm (run-server): Remove case that handled
  'interrupt' exceptions specially.  It is no longer needed since
  e6c8e6047e (REPL Server: Don't establish
  a SIGINT handler.)
This commit is contained in:
Mark H Weaver 2014-02-04 14:21:13 -05:00
parent 5e74217c7c
commit 8a114e1b54
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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.