suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Provide with-intercepted-logging.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-06-01 15:39:59 -04:00
parent fc705c6e29
commit b86d759b62
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/unstable/logging.rkt
View File

@ -43,7 +43,14 @@
port)) port))
proc #:level level)) 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)) (->* (output-port? (-> any))
(#:level (or/c 'fatal 'error 'warning 'info 'debug)) (#:level level/c)
any)]) any)])