Fixed hiding + renaming

Changed colors Made bound-id=? default svn: r4367 original commit: 8e9d6e6d0786348b28d7469a688ee4f6327862de
2006-09-18 16:21:16 +00:00 · 2006-09-18 16:21:16 +00:00 · 73a1330578
commit 73a1330578
parent f812f155bb
1 changed files with 2 additions and 0 deletions
--- 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