+
+ (set! check-connections
+ (lambda ()
+ (catch #t
+ (lambda () (set! clients (cons (accept server-socket) clients)))
+ (lambda (key . args) #f))))
+
+ (set! stop-server
+ (lambda ()
+ (cond (server-socket (close server-socket) (set! server-socket #f)))
\ No newline at end of file