mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
add exception printers for bad-header, bad-header-component
* module/web/http.scm (bad-header-component): Throw 'bad-header-component instead of 'bad-header. (bad-header-printer, bad-header-component-printer): Add exception printers.
This commit is contained in:
parent
bc61280992
commit
aaaa0eef9c
1 changed files with 16 additions and 1 deletions
|
@ -240,7 +240,22 @@ ordered alist."
|
|||
(define (bad-header sym val)
|
||||
(throw 'bad-header sym val))
|
||||
(define (bad-header-component sym val)
|
||||
(throw 'bad-header sym val))
|
||||
(throw 'bad-header-component sym val))
|
||||
|
||||
(define (bad-header-printer port key args default-printer)
|
||||
(apply (case-lambda
|
||||
((sym val)
|
||||
(format port "Bad ~a header: ~a\n" (header->string sym) val))
|
||||
(_ (default-printer)))
|
||||
args))
|
||||
(define (bad-header-component-printer port key args default-printer)
|
||||
(apply (case-lambda
|
||||
((sym val)
|
||||
(format port "Bad ~a header component: ~a\n" sym val))
|
||||
(_ (default-printer)))
|
||||
args))
|
||||
(set-exception-printer! 'bad-header bad-header-printer)
|
||||
(set-exception-printer! 'bad-header-component bad-header-component-printer)
|
||||
|
||||
(define (parse-opaque-string str)
|
||||
str)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue