From fb237a13aec89c07f10d717db2186eb07bed1e82 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 26 Mar 2009 19:18:22 +0000
Subject: [PATCH] debugger annotation accept #%variable-reference

svn: r14297
---
 collects/gui-debugger/annotator.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/gui-debugger/annotator.ss b/collects/gui-debugger/annotator.ss
index 3ea9702793..430f66d07d 100644
--- 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))])