From 260a99e08b10c29104401c058cc53f657dd5ea87 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 28 Nov 2016 14:08:46 +1300
Subject: [PATCH] Track lexical information through analyze-pattern

---
 racket/syndicate/reload.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/racket/syndicate/reload.rkt b/racket/syndicate/reload.rkt
index 9b26ba2..3cacdb6 100644
--- a/racket/syndicate/reload.rkt
+++ b/racket/syndicate/reload.rkt
@@ -19,8 +19,10 @@
 (struct reload-pending (filename) #:prefab) ;; ASSERTION
 
 (define-syntax (make-reload-pending stx)
-  (quasisyntax/loc stx
-    (reload-pending '#,(path->string (syntax-source stx)))))
+  (syntax-case stx ()
+    [(SELF)
+     (quasisyntax/loc stx
+       (reload-pending '#,(path->string (syntax-source #'SELF))))]))
 
 (define-syntax (stop-when-reloaded stx)
   (syntax-case stx ()