~ chicken-core (chicken-5) d38cc80e67575ff15e7ae8298f1f908ad2cc5ff0
commit d38cc80e67575ff15e7ae8298f1f908ad2cc5ff0
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Apr 5 13:18:06 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Tue Apr 5 13:18:06 2011 +0200
ensure directory when writing egg info (thanks to mario)
diff --git a/setup-api.scm b/setup-api.scm
index b362c24a..992e7968 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -477,6 +477,7 @@
(when (setup-verbose-mode) (printf "writing info ~A -> ~S ...~%" id info))
(let* ((sid (->string id))
(setup-file (make-setup-info-pathname sid (repo-path #t))))
+ (ensure-directory setup-file)
(cond (*sudo*
(let ((tmp (create-temporary-file)))
(with-output-to-file tmp (cut pp info))
Trap