syntax/parse: fix test for drdr; suppress logging output
This commit is contained in:
parent
3a7bf955c0
commit
1f94c4ed3a
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user