suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Macro stepper: fixed bugs re: binding arrows

Browse Source 
svn: r5676
This commit is contained in:
Ryan Culpepper 2007-02-23 11:45:00 +00:00
parent 9aa54a095c
commit 3652cbee39
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -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

2
collects/macro-debugger/view/gui.ss
View File

@ -531,7 +531,7 @@
(let ([result (lift/deriv-e2 synth-deriv)])
(when result
(send sbview add-text "Expansion finished\n")
(send sbview add-syntax result #:alpha-table))
(send sbview add-syntax result #:alpha-table alpha-table))
(unless result
(send sbview add-text "Error\n"))))