Always supervise reloaders
This commit is contained in:
parent
d0d7e677fe
commit
97bb848611
|
@ -14,6 +14,7 @@
|
||||||
(require (for-syntax racket/base))
|
(require (for-syntax racket/base))
|
||||||
(require racket/rerequire)
|
(require racket/rerequire)
|
||||||
|
|
||||||
|
(require/activate syndicate/supervise)
|
||||||
(require/activate syndicate/drivers/filesystem)
|
(require/activate syndicate/drivers/filesystem)
|
||||||
|
|
||||||
(struct reload-pending (filename) #:prefab) ;; ASSERTION
|
(struct reload-pending (filename) #:prefab) ;; ASSERTION
|
||||||
|
@ -50,7 +51,8 @@
|
||||||
(set! count (+ count 1))))))
|
(set! count (+ count 1))))))
|
||||||
|
|
||||||
(define (spawn-reloader** module-path pathstr)
|
(define (spawn-reloader** module-path pathstr)
|
||||||
(actor #:name (list 'reloader pathstr)
|
(supervise #:name (list 'reloader-supervisor pathstr)
|
||||||
|
(actor #:name 'reloader
|
||||||
(field [reloading? #f])
|
(field [reloading? #f])
|
||||||
(define (reload!)
|
(define (reload!)
|
||||||
(when (not (reloading?))
|
(when (not (reloading?))
|
||||||
|
@ -79,4 +81,4 @@
|
||||||
(if (latest-version)
|
(if (latest-version)
|
||||||
(reload!)
|
(reload!)
|
||||||
(log-syndicate/reload-warning "Module ~v does not exist" pathstr))
|
(log-syndicate/reload-warning "Module ~v does not exist" pathstr))
|
||||||
(previous-version (latest-version))))))
|
(previous-version (latest-version)))))))
|
||||||
|
|
Loading…
Reference in New Issue