diff options
Diffstat (limited to 'module/entry-points')
-rw-r--r-- | module/entry-points/server.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 919dc936..6ab9a2d1 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -222,9 +222,15 @@ addr port (getpid) (getcwd)) - (run-server (make-make-routes) - 'http - `(family: ,family - port: ,port - host: ,addr) - 0)) + (catch 'system-error + (lambda () + (run-server (make-make-routes) + 'http + `(family: ,family + port: ,port + host: ,addr) + 0)) + ;; probably address already in use + (lambda (err proc fmt args errno) + (format (current-error-port) "~a: ~?~%" + proc fmt args)))) |