temporary error while download pages are not ported

svn: r8814

collects/version/check.ss

@@ -70,6 +70,9 @@
           [stable (get 'stable)]
           [recent (get 'recent)])
       (cond
+        ;; temporary hack, until v4 comes out
+        [(regexp-match? #rx"372" recent)
+         `(error "the download pages were not ported to v4 yet")]
         ;; we have the newest version (can be > if we have an svn build)
         [(string>=? current recent) 'ok]
         ;; we're stable, but there's a newer version

collects/version/patchlevel.ss

@@ -1,5 +1,5 @@
 ;; this file contains the current patch level of DrScheme
 ;; it is usually `0' in the repository, and changed only when a patch is made.
-(module patchlevel mzscheme
+#lang scheme/base
 (define patchlevel 0)
-  (provide patchlevel))
+(provide patchlevel)

collects/version/tool.ss

@@ -1,14 +1,9 @@
-#lang mzscheme
+#lang scheme/gui
 
-(require (lib "tool.ss" "drscheme")
-         mzlib/unit
-         framework
-         mred
-         mzlib/class
+(require scheme/unit scheme/class framework drscheme/tool
+         browser/external string-constants
          "patchlevel.ss"
-         "check.ss"
-         (lib "external.ss" "browser")
-         string-constants)
+         "check.ss")
 
 (define download-url "http://download.plt-scheme.org/")
 
@@ -24,7 +19,7 @@
 ;; that we don't want to set a default of #t or #f, so make it 'unset and
 ;; change it only when users explicitly set it.  This makes it possible to have
 ;; the default be #f, but without making it always #f for all users, and in the
-;; future it is possible to change it to default to a different default.
+;; future it is possible to change it to default to #t.
 (define (is-enabled? v)
   (case v [(yes) #t] [(no) #f] [else #f])) ; default to #f