Align the resource before changing it in with-resource*.
This commit is contained in:
parent
7c026ff0b4
commit
07f796459e
|
@ -181,6 +181,7 @@
|
||||||
(let ((changed-dir #f))
|
(let ((changed-dir #f))
|
||||||
(with-lock resource-lock
|
(with-lock resource-lock
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
(align-resource!)
|
||||||
(change-and-cache dir)
|
(change-and-cache dir)
|
||||||
(set! changed-dir (cache-value))))
|
(set! changed-dir (cache-value))))
|
||||||
(let-resource changed-dir thunk)))
|
(let-resource changed-dir thunk)))
|
||||||
|
|
Loading…
Reference in New Issue