no need for mkdirs.ss
svn: r2988
This commit is contained in:
parent
08371e0b64
commit
9d1664a7d2
|
@ -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
|
||||
|
|
|
@ -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))
|
Loading…
Reference in New Issue
Block a user