diff options
| -rw-r--r-- | tissue/web/static.scm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm index ffe7c8a..fbef99e 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -121,14 +121,6 @@ stylesheet is included in the generated web pages." (evaluate-ast-from-port in #:reader reader) engine))))) -(define (with-current-directory directory thunk) - "Change current directory to DIRECTORY, execute THUNK and restore -original current directory." - (let ((previous-current-directory (getcwd))) - (dynamic-wind (const #t) - thunk - (cut chdir previous-current-directory)))) - (define* (build-website repository-top-level output-directory files #:key (log-port (current-error-port))) "Export git repository with REPOSITORY-TOP-LEVEL to OUTPUT-DIRECTORY @@ -150,6 +142,6 @@ Log to LOG-PORT. When LOG-PORT is #f, do not log." (make-directories (dirname output-file)) (call-with-output-file output-file (lambda (port) - (with-current-directory repository-top-level - (cut (file-writer file) port)))))) + (call-with-current-directory repository-top-level + (cut (file-writer file) port)))))) files)) |