From b0e8fac1f85a7684f81ff16c796392f9a4db7096 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 5 Oct 2009 04:34:04 +0000
Subject: [PATCH] mzscheme -> scheme

svn: r16239
---
 collects/setup/winvers.ss | 86 ++++++++++++++++++---------------------
 1 file changed, 40 insertions(+), 46 deletions(-)

diff --git a/collects/setup/winvers.ss b/collects/setup/winvers.ss
index 8a669efb57..a7e19142a1 100644
--- a/collects/setup/winvers.ss
+++ b/collects/setup/winvers.ss
@@ -1,54 +1,48 @@
 ;; This is a wrapper around `winvers-change.ss' to patch binary files with the
 ;; current version number.
-(module winvers mzscheme
-  (require mzlib/file 
-	   "main-collects.ss"
-	   "dirs.ss")
+#lang scheme
+(require mzlib/file "main-collects.ss" "dirs.ss")
 
-  (define (make-copy)
-    (let* ([tmpdir (find-system-path 'temp-dir)]
-           [vers (build-path tmpdir "setvers")])
-      (unless (directory-exists? vers) (make-directory vers))
-      (for-each (lambda (p)
-                  (let ([dest (build-path vers p)])
-                    ((cond [(file-exists? dest) delete-file]
-                           [(directory-exists? dest) delete-directory/files]
-                           [else void])
-                     dest)
-                    (copy-directory/files (build-path (find-console-bin-dir) p)
-                                          dest)))
-                '("mzscheme.exe" "lib"))
-      (build-path vers "mzscheme.exe")))
+(define (make-copy)
+  (let* ([tmpdir (find-system-path 'temp-dir)]
+         [vers (build-path tmpdir "setvers")])
+    (unless (directory-exists? vers) (make-directory vers))
+    (for ([p (in-list '("mzscheme.exe" "lib"))])
+      (let ([dest (build-path vers p)])
+        ((cond [(file-exists? dest) delete-file]
+               [(directory-exists? dest) delete-directory/files]
+               [else void])
+         dest)
+        (copy-directory/files (build-path (find-console-bin-dir) p) dest)))
+    (build-path vers "mzscheme.exe")))
 
-  (define (patch-files)
-    (parameterize ((current-command-line-arguments
-                    (vector (path->string (find-console-bin-dir)))))
-      (dynamic-require 'setup/winvers-change #f)))
+(define (patch-files)
+  (parameterize ([current-command-line-arguments
+                  (vector (path->string (find-console-bin-dir)))])
+    (dynamic-require 'setup/winvers-change #f)))
 
-  (define collects-dir
-    (path->string (find-collects-dir)))
+(define collects-dir
+  (path->string (find-collects-dir)))
 
-  (let ([argv (current-command-line-arguments)])
-    (cond
-      [(equal? argv #())
-       (let ([exe (make-copy)])
-         (printf "re-launching first time...~n")
+(let ([argv (current-command-line-arguments)])
+  (cond [(equal? argv #())
+         (let ([exe (make-copy)])
+           (printf "re-launching first time...~n")
+           (subprocess
+            (current-output-port) (current-input-port) (current-error-port)
+            exe "--collects" collects-dir
+            "-l" "setup/winvers" "patch"))]
+        [(equal? argv #("patch"))
+         (sleep 1) ; time for other process to end
+         (patch-files)
+         (printf "re-launching last time...~n")
          (subprocess
           (current-output-port) (current-input-port) (current-error-port)
-          exe "--collects" collects-dir
-          "-l" "setup/winvers" "patch"))]
-      [(equal? argv #("patch"))
-       (sleep 1) ; time for other process to end
-       (patch-files)
-       (printf "re-launching last time...~n")
-       (subprocess
-        (current-output-port) (current-input-port) (current-error-port)
-        (build-path (find-console-bin-dir) "mzscheme.exe")
-        "-l" "setup/winvers" "finish")]
-      [(equal? argv #("finish"))
-       (sleep 1) ; time for other process to end
-       (delete-directory/files
-        (build-path (find-system-path 'temp-dir) "setvers"))
-       (printf "done!~n")]
-      [else
-       (error 'winvers "unknown command line: ~e" argv)])))
+          (build-path (find-console-bin-dir) "mzscheme.exe")
+          "-l" "setup/winvers" "finish")]
+        [(equal? argv #("finish"))
+         (sleep 1) ; time for other process to end
+         (delete-directory/files
+          (build-path (find-system-path 'temp-dir) "setvers"))
+         (printf "done!~n")]
+        [else (error 'winvers "unknown command line: ~e" argv)]))