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

original commit: eb1c164aca02f575c5903d1e39382fefb8c7ee59
2010-11-17 13:25:15 -07:00 · 2010-11-17 13:25:15 -07:00 · 6f32f373e9
commit 6f32f373e9
parent e1dc035fa6
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