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

temporary error while download pages are not ported

Browse Source 
svn: r8814
This commit is contained in:
Eli Barzilay 2008-02-27 14:13:45 +00:00
parent 7a1aaadf8d
commit f7042d063a
3 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/version/check.ss
View File

@ -70,6 +70,9 @@
[stable (get 'stable)] [stable (get 'stable)]
[recent (get 'recent)]) [recent (get 'recent)])
(cond (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) ;; we have the newest version (can be > if we have an svn build)
[(string>=? current recent) 'ok] [(string>=? current recent) 'ok]
;; we're stable, but there's a newer version ;; we're stable, but there's a newer version

6
collects/version/patchlevel.ss
View File

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

15
collects/version/tool.ss
View File

@ -1,14 +1,9 @@
#lang mzscheme #lang scheme/gui
(require (lib "tool.ss" "drscheme") (require scheme/unit scheme/class framework drscheme/tool
mzlib/unit browser/external string-constants
framework
mred
mzlib/class
"patchlevel.ss" "patchlevel.ss"
"check.ss" "check.ss")
(lib "external.ss" "browser")
string-constants)
(define download-url "http://download.plt-scheme.org/") (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 ;; 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 ;; 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 ;; 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) (define (is-enabled? v)
(case v [(yes) #t] [(no) #f] [else #f])) ; default to #f (case v [(yes) #t] [(no) #f] [else #f])) ; default to #f