From a2bd880bbbabb16e5e557ebfc562141ab48ab3d4 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 23 Feb 2007 11:45:00 +0000 Subject: [PATCH] Macro stepper: fixed bugs re: binding arrows svn: r5676 original commit: 3652cbee39b42cb4f7cca21b5a9127496f276e3c --- 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 index a364283..7fa33df 100644 --- 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