Remove peek call that snuck in to the builds module
This commit is contained in:
parent
77caafb019
commit
885053e107
1 changed files with 1 additions and 6 deletions
|
|
@ -143,12 +143,7 @@ initial connection on which HTTP requests are sent."
|
||||||
(simple-format #t "\nQuerying ~A\n" url)
|
(simple-format #t "\nQuerying ~A\n" url)
|
||||||
(catch #t
|
(catch #t
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(with-throw-handler #t
|
(query-build-server conn id url revision-commits outputs))
|
||||||
(lambda ()
|
|
||||||
(query-build-server conn id url revision-commits outputs))
|
|
||||||
(lambda (key . args)
|
|
||||||
(peek "THROW" key args)
|
|
||||||
(backtrace))))
|
|
||||||
(lambda (key . args)
|
(lambda (key . args)
|
||||||
(simple-format
|
(simple-format
|
||||||
(current-error-port)
|
(current-error-port)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue