www

commit a2bd880bbbabb16e5e557ebfc562141ab48ab3d4
parent 8dbd13069895718e421118fa59e9f20bde5910f0
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 23 Feb 2007 11:45:00 +0000

Macro stepper: fixed bugs re: binding arrows

svn: r5676

original commit: 3652cbee39b42cb4f7cca21b5a9127496f276e3c

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

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss
@@ -97,7 +97,7 @@
           
           (define/public add-syntax
             (lambda/kw (stx #:key [hi-stxs null] hi-color alpha-table)
-              (when (and hi-stxs (not hi-color))
+              (when (and (pair? hi-stxs) (not hi-color))
                 (error 'syntax-widget%::add-syntax "no highlight color specified"))
               (let ([colorer (internal-add-syntax stx hi-stxs hi-color)])
                 (when alpha-table