From f367cb86e236c08b08db2d93b387852ed1864579 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 11 Aug 2022 21:56:35 +0900 Subject: [PATCH] signal an error when we can't change-directory in with-directory (issue #850) --- lib/chibi/filesystem.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/filesystem.scm b/lib/chibi/filesystem.scm index 20f40331..e6bbd653 100644 --- a/lib/chibi/filesystem.scm +++ b/lib/chibi/filesystem.scm @@ -104,7 +104,9 @@ (define (with-directory dir thunk) (let ((pwd (current-directory))) (dynamic-wind - (lambda () (change-directory dir)) + (lambda () + (if (not (change-directory dir)) + (error "couldn't change directory" dir))) thunk (lambda () (change-directory pwd)))))