From 9d1664a7d2f9fd28402c24de6921c5df97ea5ba1 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 19 May 2006 08:45:17 +0000 Subject: [PATCH] no need for mkdirs.ss svn: r2988 --- src/Makefile.in | 2 +- src/mkdirs.ss | 14 -------------- 2 files changed, 1 insertion(+), 15 deletions(-) delete mode 100644 src/mkdirs.ss diff --git a/src/Makefile.in b/src/Makefile.in index c993c06787..d8c647b774 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -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 diff --git a/src/mkdirs.ss b/src/mkdirs.ss deleted file mode 100644 index 19e57aa5e5..0000000000 --- a/src/mkdirs.ss +++ /dev/null @@ -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))