Provide with-intercepted-logging.

original commit: b86d759b626088158b2da492dc2c3ecadbabdff9
2011-06-01 15:39:59 -04:00 · 2011-06-01 15:39:59 -04:00 · addca29b35
commit addca29b35
parent 5de906251f
1 changed files with 9 additions and 2 deletions
--- 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)])