diff --git a/Makefile.am b/Makefile.am index bdcf044..3429a15 100644 --- a/Makefile.am +++ b/Makefile.am @@ -36,4 +36,4 @@ EXTRA_DIST = \ pre-inst-env.in check: $(GOBJECTS) $(TESTS_GOBJECTS) - find tests -maxdepth 1 -name "*.scm" | xargs -t -L1 ./test-env guile + find tests -name "*.scm" | xargs -t -L1 ./test-env guile diff --git a/knots/web-server.scm b/knots/web-server.scm index b51ca00..60b3f06 100644 --- a/knots/web-server.scm +++ b/knots/web-server.scm @@ -385,8 +385,7 @@ on the procedure being called at any particular time." #f "wrong number of values returned from handler, expecting 2, got ~A" (length other))) - handler)))))))))) - #:unwind? #t))))) + handler))))))))))))))) (with-exception-handler (lambda (exn) (write-response-exception-handler exn request))