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

forgot a few more places

Browse Source 
svn: r2999
This commit is contained in:
Eli Barzilay 2006-05-21 10:29:52 +00:00
parent bffb3c0f92
commit 07e2c01045
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/setup/winvers-change.ss
View File

@ -60,13 +60,13 @@
version-bytes version-bytes
(subbytes dfile (cdadr m)))]) (subbytes dfile (cdadr m)))])
(when verbose? (when verbose?
(printf "Renaming: ~a/~a -> ~a\n" (printf "Renaming: ~a -> ~a\n"
(current-directory) file new)) (build-path (current-directory) file) new))
(rename-file-or-directory (path) (bytes->path new)) (rename-file-or-directory (path) (bytes->path new))
(set! file new)))] (set! file new)))]
[(regexp-match-positions xxxs dfile) [(regexp-match-positions xxxs dfile)
(fprintf (current-error-port) "Warning: ~a/~a was not renamed!\n" (fprintf (current-error-port) "Warning: ~a was not renamed!\n"
(current-directory) file)])) (build-path (current-directory) file))]))
(let-values ([(i o) (open-input-output-file (path) 'update)] (let-values ([(i o) (open-input-output-file (path) 'update)]
[(print?) verbose?]) [(print?) verbose?])
(for-each (lambda (subst) (for-each (lambda (subst)
@ -86,8 +86,8 @@
substitutions) substitutions)
(file-position i 0) (file-position i 0)
(when (regexp-match-positions xxxs i) (when (regexp-match-positions xxxs i)
(fprintf (current-error-port) "Warning: ~a/~a still has \"~a\"!\n" (fprintf (current-error-port) "Warning: ~a still has \"~a\"!\n"
(current-directory) file xxxs)) (build-path (current-directory) file) xxxs))
(close-input-port i) (close-input-port i)
(close-output-port o)))) (close-output-port o))))