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

2002-01-29 08:12:09 +00:00 · 2002-01-29 08:12:09 +00:00 · 07f796459e
parent 7c026ff0b4
commit 07f796459e
1 changed files with 1 additions and 0 deletions
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@ -181,6 +181,7 @@
 	(let ((changed-dir #f))		
 	  (with-lock resource-lock
 		     (lambda ()
+		       (align-resource!)
 		       (change-and-cache dir)
 		       (set! changed-dir (cache-value))))
 	  (let-resource changed-dir thunk)))