summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/web/static.scm12
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))