suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't match plain-module-begin in module, since its phase is potentially different

Browse Source 
svn: r11580
This commit is contained in:
Matthew Flatt 2008-09-09 00:16:03 +00:00
parent 81d31e973e
commit b6b0d96bb8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/gui-debugger/annotator.ss
View File

@ -162,10 +162,10 @@
(define (top-level-annotate stx)
(kernel:kernel-syntax-case/phase
stx (namespace-base-phase)
[(module identifier name (#%plain-module-begin . module-level-exprs))
[(module identifier name (plain-module-begin . module-level-exprs))
(with-syntax ([(module . _) stx])
(quasisyntax/loc stx (module identifier name
(#%plain-module-begin
(plain-module-begin
#,@(map (lambda (e) (module-level-expr-iterator
e (list (syntax-e #'identifier)
(syntax-source #'identifier))))