~ chicken-core (chicken-5) e20d1d9e45e4abae9940647ad786f23983b24da7

commit e20d1d9e45e4abae9940647ad786f23983b24da7
Author:     Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Fri Jun 24 11:46:36 2011 -0300
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 24 19:07:06 2011 +0200

    makedist.scm (release): create directories with parents (tests/reverser contains subdirs, for example)

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index 634feabd..11158a65 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -42,7 +42,7 @@
        (let ((d (path distname d)))
 	 (unless (file-exists? d)
 	   (print "creating " d)
-	   (create-directory d))))
+	   (create-directory d 'with-parents))))
      (delete-duplicates (filter-map prefix files) string=?))
     (let ((missing '()))
       (for-each