std/net/httpd/server: catch and propagate errors in handler registration

adam-7 · Nov 9, 2019 · 6df4b4d · 6df4b4d
1 parent a206800
commit 6df4b4d
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/std/net/httpd/server.ss b/src/std/net/httpd/server.ss
@@ -73,8 +73,11 @@
 
   (def (loop)
     (<- ((!httpd.register host path handler k)
-         (put-handler! host path handler)
-         (!!value (void) k)
+         (try
+          (put-handler! host path handler)
+          (!!value (void) k)
+          (catch (e)
+            (!!error e k)))
          (loop))
         ((!httpd.shutdown)
          (void))