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

remove the source tree -- no point in it being installed in a place that makes it unusable

Browse Source 
svn: r3407
This commit is contained in:
Eli Barzilay 2006-06-18 22:00:07 +00:00
parent 3f03f074a7
commit af917c5174
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/setup/unixstyle-install.ss
View File

@ -23,7 +23,7 @@
(define includepltdir (get-arg)) (define includepltdir (get-arg))
(define libpltdir (get-arg)) (define libpltdir (get-arg))
(define mandir (get-arg)) (define mandir (get-arg))
(define srcdir (get-arg)) ;; (define srcdir (get-arg))
;; Configures level where we start owning stuff (in the sense that the ;; Configures level where we start owning stuff (in the sense that the
;; generated uninstaller will remove it, and the installation will remove ;; generated uninstaller will remove it, and the installation will remove
@ -281,8 +281,11 @@
(move-tree "include" includepltdir) (move-tree "include" includepltdir)
(move-tree "lib" libpltdir) (move-tree "lib" libpltdir)
(move-tree "man" mandir) (move-tree "man" mandir)
(when (and (not (equal? srcdir "")) (directory-exists? srcdir)) ;; (when (and (not (equal? srcdir "")) (directory-exists? "src"))
(move-tree "src" srcdir)) ;; (move-tree "src" srcdir))
;; don't use the above -- it would be pointless to put the source tree in a
;; place where it would not be usable.
(when (directory-exists? "src") (rm "src"))
;; part of the distribution: ;; part of the distribution:
(move-tree "readme.txt" (build-path docdir "readme.txt")) (move-tree "readme.txt" (build-path docdir "readme.txt"))
;; nothing should be left now ;; nothing should be left now