Only act when we know a positive fact about the state of our watched file
This commit is contained in:
parent
bde2d833bd
commit
3a3d216908
|
@ -72,9 +72,10 @@
|
||||||
(reloading? #f)))))
|
(reloading? #f)))))
|
||||||
|
|
||||||
(field [previous-version #f])
|
(field [previous-version #f])
|
||||||
(define/query-value latest-version #f (file-content pathstr counter $p) p)
|
(define/query-value latest-version 'unknown (file-content pathstr counter $p) p)
|
||||||
(begin/dataflow
|
(begin/dataflow
|
||||||
(when (not (equal? (latest-version) (previous-version)))
|
(when (and (not (eq? (latest-version) 'unknown))
|
||||||
|
(not (equal? (latest-version) (previous-version))))
|
||||||
(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))
|
||||||
|
|
Loading…
Reference in New Issue