From b451e04169589c12fdf0471b8216c1bcb01a6168 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 22 Mar 2026 18:54:22 +0000 Subject: [PATCH 1/2] Add missing #:unwind? #t --- knots/web-server.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/knots/web-server.scm b/knots/web-server.scm index 60b3f06..b51ca00 100644 --- a/knots/web-server.scm +++ b/knots/web-server.scm @@ -385,7 +385,8 @@ on the procedure being called at any particular time." #f "wrong number of values returned from handler, expecting 2, got ~A" (length other))) - handler))))))))))))))) + handler)))))))))) + #:unwind? #t))))) (with-exception-handler (lambda (exn) (write-response-exception-handler exn request)) From cfc40069fbef715855cb4aac019d5b6d0ecae3be Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 22 Mar 2026 18:54:28 +0000 Subject: [PATCH 2/2] Fix running the tests --- Makefile.am | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Makefile.am b/Makefile.am index 3429a15..bdcf044 100644 --- a/Makefile.am +++ b/Makefile.am @@ -36,4 +36,4 @@ EXTRA_DIST = \ pre-inst-env.in check: $(GOBJECTS) $(TESTS_GOBJECTS) - find tests -name "*.scm" | xargs -t -L1 ./test-env guile + find tests -maxdepth 1 -name "*.scm" | xargs -t -L1 ./test-env guile