From 80118f2ffd14016ec011a6f066a977080e38d740 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 1 Jul 2026 14:52:55 +0100
Subject: utils: Remove unused call-with-current-directory.

---
 ccwl/utils.scm | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/ccwl/utils.scm b/ccwl/utils.scm
index f2d4260..d266029 100644
--- a/ccwl/utils.scm
+++ b/ccwl/utils.scm
@@ -43,7 +43,6 @@
             map2
             foldn
             filter-mapi
-            call-with-current-directory
             resolve-file-syntax))
 
 (define (indent-level port level)
@@ -345,14 +344,6 @@ the first call. For example,
                inits
                lst)))
 
-(define (call-with-current-directory curdir thunk)
-  "Call @var{thunk} with current directory set to @var{curdir}. Restore
-current directory after @var{thunk} returns."
-  (let ((original-current-directory (getcwd)))
-    (dynamic-wind (cut chdir curdir)
-                  thunk
-                  (cut chdir original-current-directory))))
-
 (define (resolve-file-syntax file-path file-syntax)
   "Resolve @var{file-path} relative to the file location of
 @var{file-syntax}. If @var{file-syntax} has no source location,
-- 
cgit 1.4.1