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

Compare commits

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

No commits in common. "cfc40069fbef715855cb4aac019d5b6d0ecae3be" and "b3fa4d069b06e3fe9948386f37349838ef173a71" have entirely different histories.
cfc40069fb ... b3fa4d069b

2 changed files with 2 additions and 3 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 -maxdepth 1 -name "*.scm" | xargs -t -L1 ./test-env guile find tests -name "*.scm" | xargs -t -L1 ./test-env guile

3
knots/web-server.scm
View file

@ -385,8 +385,7 @@ 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))