Removed call/cc from handler of bind-listen-accept-loop: We want to

close the socket, but not prevent the exception to come through
(Otherwise you get 'interrupted on undefined globals...).

scsh/network.scm

@@ -86,14 +86,12 @@
     (set-socket-option sock level/socket socket/reuse-address #t)
     (bind-socket sock addr)
     (listen-socket sock 5)
-    (call-with-current-continuation
-     (lambda (exit)
     (with-handler
      (lambda (condition more)
        (with-handler
 	(lambda (condition ignore) (more))
 	(lambda () (close-socket sock)))
-	  (exit 'interrupted))
+       (more))
      (lambda ()
        (let loop ()
 	 (with-errno-handler
@@ -103,7 +101,7 @@
 	  (call-with-values 
 	   (lambda () (accept-connection sock))
 	   proc)
-	     (loop)))))))))
+	  (loop)))))))
 
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 ;;; Socket Record Structure