# HG changeset patch
# User Arne Babenhauserheide <arne_bab@web.de>
# Date 1598487584 -7200
#      Thu Aug 27 02:19:44 2020 +0200
# Node ID 4541f36df0b046be6d196f7222c4caf43e7d6f3d
# Parent  7a54360bd173f33ec6ba3fa5d6949aa92ed70942
simplify: no need for explicit suspendable-ports now that server is in a fiber

diff --git a/wispserve/serve.w b/wispserve/serve.w
--- a/wispserve/serve.w
+++ b/wispserve/serve.w
@@ -69,10 +69,6 @@
     only (srfi srfi-27) random-integer
     only (ice-9 textual-ports) put-string
     only (ice-9 atomic) atomic-box-set! atomic-box-ref atomic-box-compare-and-swap! make-atomic-box atomic-box-swap!
-    only (ice-9 suspendable-ports) install-suspendable-ports!
-
-
-install-suspendable-ports!
 
 define : run-ipv4-fibers-server handler-with-path ip port
     fibers:run-server handler-with-path #:family AF_INET #:port port #:addr INADDR_ANY