Align the resource before changing it in with-resource*.

This commit is contained in:
mainzelm 2002-01-29 08:12:09 +00:00
parent 7c026ff0b4
commit 07f796459e
1 changed files with 1 additions and 0 deletions

View File

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