macro-stepper: extra guard in on-demand id-only popup submenu

This commit is contained in:
Ryan Culpepper 2010-11-17 13:25:15 -07:00
parent c50ab191d6
commit eb1c164aca

View File

@ -118,7 +118,7 @@
(demand-callback (demand-callback
(lambda (i) (lambda (i)
(let ([stx (selected-syntax)]) (let ([stx (selected-syntax)])
(when stx (when (identifier? stx)
(send i set-label (send i set-label
(format "Format ~s ~a" (syntax-e stx) (cadr sym+desc))))))) (format "Format ~s ~a" (syntax-e stx) (cadr sym+desc)))))))
(callback (callback