diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.ss b/collects/macro-debugger/syntax-browser/pretty-helper.ss index 4f62b9b..e9cc88d 100644 --- a/collects/macro-debugger/syntax-browser/pretty-helper.ss +++ b/collects/macro-debugger/syntax-browser/pretty-helper.ss @@ -84,6 +84,8 @@ (pairloop (cdr obj)))] [(null? obj) null] + [(and (syntax? obj) (null? (syntax-e obj))) + null] [else (loop obj)])) (values (loop stx) flat=>stx