From b86d759b626088158b2da492dc2c3ecadbabdff9 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Wed, 1 Jun 2011 15:39:59 -0400
Subject: [PATCH] Provide with-intercepted-logging.

---
 collects/unstable/logging.rkt | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/collects/unstable/logging.rkt b/collects/unstable/logging.rkt
index 606a874876..2324eecd79 100644
--- a/collects/unstable/logging.rkt
+++ b/collects/unstable/logging.rkt
@@ -43,7 +43,14 @@
                           port))
    proc #:level level))
 
-(provide/contract [with-logging-to-port
+(define level/c (or/c 'fatal 'error 'warning 'info 'debug))
+
+(provide/contract [with-intercepted-logging
+                   (->* ((-> (vector/c level/c string? any/c) any)
+                         (-> any))
+                        (#:level level/c)
+                        any)]
+                  [with-logging-to-port
                    (->* (output-port? (-> any))
-                        (#:level (or/c 'fatal 'error 'warning 'info 'debug))
+                        (#:level level/c)
                         any)])