cbaines/guile-knots
1
Fork 0
Code Issues 1 Pull requests Activity Actions

Compare commits

base: cbaines:b3fa4d069b06e3fe9948386f37349838ef173a71
Branches Tags
cbaines:trunk
cbaines:pages
cbaines:actions-test
cbaines:0.1
...
compare: cbaines:cfc40069fbef715855cb4aac019d5b6d0ecae3be
Branches Tags
cbaines:pages
cbaines:trunk
cbaines:actions-test
cbaines:0.1

2 commits
b3fa4d069b ... cfc40069fb

Author SHA1 Message Date
Christopher Baines
cfc40069fb Fix running the tests
All checks were successful
/ test (push) Successful in 4s
Details
2026-03-22 18:54:28 +00:00
Christopher Baines
b451e04169 Add missing #:unwind? #t 2026-03-22 18:54:22 +00:00
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Makefile.am
View file

@ -36,4 +36,4 @@ EXTRA_DIST = \
pre-inst-env.in pre-inst-env.in
check: $(GOBJECTS) $(TESTS_GOBJECTS) 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

3
knots/web-server.scm
View file

@ -385,7 +385,8 @@ on the procedure being called at any particular time."
#f #f
"wrong number of values returned from handler, expecting 2, got ~A" "wrong number of values returned from handler, expecting 2, got ~A"
(length other))) (length other)))
handler))))))))))))))) handler))))))))))
#:unwind? #t)))))
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
(write-response-exception-handler exn request)) (write-response-exception-handler exn request))