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

2010-11-17 13:25:15 -07:00 · 2010-11-17 13:25:15 -07:00 · eb1c164aca
commit eb1c164aca
parent c50ab191d6
1 changed files with 1 additions and 1 deletions
--- a/collects/macro-debugger/syntax-browser/keymap.rkt
+++ b/collects/macro-debugger/syntax-browser/keymap.rkt
@ -118,7 +118,7 @@
               (demand-callback
                (lambda (i)
                  (let ([stx (selected-syntax)])
-                    (when stx
+                    (when (identifier? stx)
                      (send i set-label
                            (format "Format ~s ~a" (syntax-e stx) (cadr sym+desc)))))))
               (callback