debugger annotation accept #%variable-reference

svn: r14297
2009-03-26 19:18:22 +00:00 · 2009-03-26 19:18:22 +00:00 · fb237a13ae
commit fb237a13ae
parent 34c14d27f5
1 changed files with 1 additions and 0 deletions
--- a/collects/gui-debugger/annotator.ss
+++ b/collects/gui-debugger/annotator.ss
@ -378,6 +378,7 @@
                             (quasisyntax/loc expr (#%plain-app . #,subexprs)))))]
            
            [(#%top . var) expr]
+            [(#%variable-reference . _) expr]
            
            [else (error 'expr-syntax-object-iterator "unknown expr: ~a"
                         (syntax->datum expr))])