diff options
| author | Arun Isaac | 2026-07-01 14:52:55 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-07-01 23:14:41 +0100 |
| commit | 80118f2ffd14016ec011a6f066a977080e38d740 (patch) | |
| tree | 6578fa11852365e0e787474bc90b0f3ef448e5b4 | |
| parent | 17f98d56973506fad6e7a75c4458464658b4e03e (diff) | |
| download | ccwl-80118f2ffd14016ec011a6f066a977080e38d740.tar.gz ccwl-80118f2ffd14016ec011a6f066a977080e38d740.tar.lz ccwl-80118f2ffd14016ec011a6f066a977080e38d740.zip | |
utils: Remove unused call-with-current-directory.
| -rw-r--r-- | ccwl/utils.scm | 9 |
1 files changed, 0 insertions, 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, |