~ chicken-core (chicken-5) b5a229e2ca1f1c22e6799a685300594c693a7bcc


commit b5a229e2ca1f1c22e6799a685300594c693a7bcc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Apr 5 13:18:06 2011 +0200
Commit:     felix <felix@z.(none)>
CommitDate: Fri Apr 8 20:26:58 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