From 73a1330578edc0676d34ff71043a7f151f97d100 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Mon, 18 Sep 2006 16:21:16 +0000
Subject: [PATCH] =?UTF-8?q?Fixed=20hiding=20+=20renaming=20Changed=20color?=
 =?UTF-8?q?s=20Made=20bound-id=3D=3F=20default?=

svn: r4367

original commit: 8e9d6e6d0786348b28d7469a688ee4f6327862de
---
 collects/macro-debugger/syntax-browser/pretty-helper.ss | 2 ++
 1 file changed, 2 insertions(+)

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