From 1f94c4ed3a317fd816f309e2d581c7763934bb14 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sun, 31 Jul 2016 14:25:28 -0400 Subject: [PATCH] syntax/parse: fix test for drdr; suppress logging output --- pkgs/racket-test/tests/stxparse/test.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/racket-test/tests/stxparse/test.rkt b/pkgs/racket-test/tests/stxparse/test.rkt index 82996d97db..8ffdfcbdb2 100644 --- a/pkgs/racket-test/tests/stxparse/test.rkt +++ b/pkgs/racket-test/tests/stxparse/test.rkt @@ -647,7 +647,7 @@ (tok (1 . (2 3)) (~datum (1 . (2 3))) 'ok) ;; nullable EH pattern raises error on match (rather than diverging) (7/2016) -(let () +(parameterize ((current-logger (make-logger #f #f))) ;; suppress logged "nullable" msg ;; to make drdr happy: use eval because compiling this code currently logs an error (define ns (make-base-namespace)) (eval '(require syntax/parse) ns)