From e0dc497832fbd175538bfe60b468fcb43c49aaae Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 11 Mar 2012 10:57:05 +0100 Subject: [PATCH] add bad-request printer * module/web/request.scm (bad-request-printer): Add printer for these exceptions. --- module/web/request.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/module/web/request.scm b/module/web/request.scm index 8259887c0..fd4f02bbd 100644 --- a/module/web/request.scm +++ b/module/web/request.scm @@ -1,6 +1,6 @@ ;;; HTTP request objects -;; Copyright (C) 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2010, 2011, 2012 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -131,6 +131,17 @@ (define (bad-request message . args) (throw 'bad-request message args)) +(define (bad-request-printer port key args default-printer) + (apply (case-lambda + ((msg . args) + (display "Bad request: " port) + (apply format port msg args) + (newline port)) + (_ (default-printer))) + args)) + +(set-exception-printer! 'bad-request bad-request-printer) + (define (non-negative-integer? n) (and (number? n) (>= n 0) (exact? n) (integer? n)))