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 (define/public add-syntax
(lambda/kw (stx #:key [hi-stxs null] hi-color alpha-table) (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")) (error 'syntax-widget%::add-syntax "no highlight color specified"))
(let ([colorer (internal-add-syntax stx hi-stxs hi-color)]) (let ([colorer (internal-add-syntax stx hi-stxs hi-color)])
(when alpha-table (when alpha-table

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

@ -531,7 +531,7 @@
(let ([result (lift/deriv-e2 synth-deriv)]) (let ([result (lift/deriv-e2 synth-deriv)])
(when result (when result
(send sbview add-text "Expansion finished\n") (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 (unless result
(send sbview add-text "Error\n")))) (send sbview add-text "Error\n"))))