Macro stepper: fixed bugs re: binding arrows

svn: r5676 original commit: 3652cbee39b42cb4f7cca21b5a9127496f276e3c
2007-02-23 11:45:00 +00:00 · 2007-02-23 11:45:00 +00:00 · a2bd880bbb
commit a2bd880bbb
parent 8dbd130698
1 changed files with 1 additions and 1 deletions
--- 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