no need for mkdirs.ss

svn: r2988
This commit is contained in:
Eli Barzilay 2006-05-19 08:45:17 +00:00
parent 08371e0b64
commit 9d1664a7d2
2 changed files with 1 additions and 15 deletions

View File

@ -37,7 +37,7 @@ install:
$(MAKE) setup-plt
install-normal:
mzscheme/mzscheme -mvqu "$(srcdir)/mkdirs.ss" $(ALLDIRINFO)
mkdir -p $(ALLDIRINFO)
if [ ! -d $(prefix) ] ; then mkdir $(prefix) ; fi
$(MAKE) mzinstall
$(MAKE) mredinstall-stub

View File

@ -1,14 +0,0 @@
(module mkdirs mzscheme
(define dirs (vector->list (current-command-line-arguments)))
(define (make-directory* dir)
(unless (directory-exists? dir)
(let-values ([(base name dir?) (split-path dir)])
(when (path? base)
(make-directory* base))
(printf "Making ~a\n" dir)
(make-directory dir))))
(for-each make-directory* dirs))