diff options
| -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, |