suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no need for mkdirs.ss

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Makefile.in
View File

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

14
src/mkdirs.ss
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))