From 641dd731ab0c699180435578fdc0a393ef03d1a5 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 1 Jun 2011 16:38:59 -0400 Subject: [PATCH] Fix optimizer test harness to use the new syntax of with-logging-to-port. --- collects/tests/typed-scheme/optimizer/run.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index 0a1251a559..e84cf8388c 100644 --- a/collects/tests/typed-scheme/optimizer/run.rkt +++ b/collects/tests/typed-scheme/optimizer/run.rkt @@ -12,14 +12,15 @@ [out-string (with-output-to-string (lambda () - (with-logging-to-port log-port 'warning ; catch opt logs + (with-logging-to-port log-port ; catch opt logs (lambda () (parameterize ([current-namespace (make-base-empty-namespace)] [current-load-relative-directory dir]) (dynamic-require (build-path (current-load-relative-directory) name) - #f))))))]) + #f))) + #:level 'warning)))]) ;; have the log as an sexp, since that's what the expected log is (with-input-from-string (string-append "(" (get-output-string log-port) ; join log and results