syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Track lexical information through analyze-pattern

This commit is contained in:
Tony Garnock-Jones 2016-11-28 14:08:46 +13:00
parent bab5aba083
commit 260a99e08b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/reload.rkt
View File

@ -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 ()