debugger annotation accept #%variable-reference

svn: r14297
This commit is contained in:
Matthew Flatt 2009-03-26 19:18:22 +00:00
parent 34c14d27f5
commit fb237a13ae

View File

@ -378,6 +378,7 @@
(quasisyntax/loc expr (#%plain-app . #,subexprs)))))] (quasisyntax/loc expr (#%plain-app . #,subexprs)))))]
[(#%top . var) expr] [(#%top . var) expr]
[(#%variable-reference . _) expr]
[else (error 'expr-syntax-object-iterator "unknown expr: ~a" [else (error 'expr-syntax-object-iterator "unknown expr: ~a"
(syntax->datum expr))]) (syntax->datum expr))])