template: mark pattern variables as disappeared

This fixes a bug introduced in 291565.
2019-06-27 22:22:08 +02:00 · 2019-06-27 22:22:08 +02:00 · 3c12957c7e
commit 3c12957c7e
parent aaf1127093
1 changed files with 1 additions and 0 deletions
--- a/racket/collects/racket/private/template.rkt
+++ b/racket/collects/racket/private/template.rkt
@ -369,6 +369,7 @@
        (define (make-src-ref var id)
          (cond [check `(#%expression (,check ,var 1 #f (quote-syntax ,id)))]
                [else var]))
+        (disappeared! id)
        (frames-seen-pvar! depth0)
        (make-ref
         (let dloop ([depth depth0] [pvar-depth pvar-depth]) ;; ... -> Identifier