Track lexical information through analyze-pattern
This commit is contained in:
parent
bab5aba083
commit
260a99e08b
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue