syntax/parse: fix test for drdr; suppress logging output

This commit is contained in:
Ryan Culpepper 2016-07-31 14:25:28 -04:00
parent 3a7bf955c0
commit 1f94c4ed3a

View File

@ -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)