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