www

commit 73a1330578edc0676d34ff71043a7f151f97d100
parent f812f155bbba10e5c80f16c90fa46c2224c871a9
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Mon, 18 Sep 2006 16:21:16 +0000

Fixed hiding + renaming
Changed colors
Made bound-id=? default

svn: r4367

original commit: 8e9d6e6d0786348b28d7469a688ee4f6327862de

Diffstat:
M
collects/macro-debugger/syntax-browser/pretty-helper.ss
 | 
2
++

1 file changed, 2 insertions(+), 0 deletions(-)
diff --git 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