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

some typos, better text

Browse Source 
svn: r3460
This commit is contained in:
Eli Barzilay 2006-06-24 00:16:11 +00:00
parent 00513d7778
commit 5ef1314ae5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -211,12 +211,15 @@
(mv dst src)))] (mv dst src)))]
[(rd) make-directory] [(rd) make-directory]
[(md) delete-directory] [(md) delete-directory]
[(file) delete-file]
[else (error 'undo-changes "internal-error: ~e" p)]) [else (error 'undo-changes "internal-error: ~e" p)])
(cdr p))) (cdr p)))
path-changes)) path-changes))
(define (write-uninstaller) (define (write-uninstaller)
(define uninstaller (build-path bindir "plt-uninstall")) (define uninstaller (build-path bindir "plt-uninstall"))
(printf "Writing uninstaller at: ~a...\n" uninstaller)
(register-change! 'file uninstaller)
(with-output-to-file uninstaller (with-output-to-file uninstaller
(lambda () (lambda ()
(printf "#!/bin/sh\n") (printf "#!/bin/sh\n")
@ -247,10 +250,11 @@
[dep (cpath "compiled" "config.dep")] [dep (cpath "compiled" "config.dep")]
[src-time (ftime src)] [src-time (ftime src)]
[zo-time (ftime zo)]) [zo-time (ftime zo)])
(printf "Rewriting configuration file at: ~a...\n" src)
(parameterize ([current-library-collection-paths (list collectsdir)]) (parameterize ([current-library-collection-paths (list collectsdir)])
(with-output-to-file (cpath "config.ss") (with-output-to-file (cpath "config.ss")
(lambda () (lambda ()
(printf ";; automatically generated at installation\n") (printf ";; automatically generated by unixstyle-install\n")
(printf "(module config (lib \"configtab.ss\" \"setup\")\n") (printf "(module config (lib \"configtab.ss\" \"setup\")\n")
(printf " (define doc-dir ~s)\n" docdir) (printf " (define doc-dir ~s)\n" docdir)
(when (eq? 'shared (system-type 'link)) ; never true for now (when (eq? 'shared (system-type 'link)) ; never true for now
@ -263,7 +267,7 @@
;; recompile & set times as if nothing happened (don't remove .dep) ;; recompile & set times as if nothing happened (don't remove .dep)
;; this requires the file to look the same on all compilations, and ;; this requires the file to look the same on all compilations, and
;; configtab.ss generates bindings unhygienically for that reason. ;; configtab.ss generates bindings unhygienically for that reason.
(unless (and compile? (not (car compile?))) (unless (and (pair? compile?) (not (car compile?)))
(when src-time (file-or-directory-modify-seconds src src-time)) (when src-time (file-or-directory-modify-seconds src src-time))
(when zo-time (when zo-time
(with-input-from-file src (with-input-from-file src