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

A lot of "plt-scheme.org" -> "racket-lang.org"s.

Browse Source
This commit is contained in:
Eli Barzilay 2010-05-17 00:53:12 -04:00
parent bba676d90c
commit a46743211b
28 changed files with 69 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/private/driver.rkt
View File

@ -504,7 +504,7 @@
(printf (printf
(string-append (string-append
" please report the bug using Help Desk~n" " please report the bug using Help Desk~n"
" or http://bugs.plt-scheme.org/~n" " or http://bugs.racket-lang.org/~n"
" and include a transcript in verbose mode~n"))))) " and include a transcript in verbose mode~n")))))
msgs) msgs)

4
collects/drracket/private/app.rkt
View File

@ -165,7 +165,7 @@
(send e insert " by ") (send e insert " by ")
(insert-url/external-browser "PLT" "http://www.plt-scheme.org/") (insert-url/external-browser "PLT" "http://racket-lang.org/")
(send* e (send* e
(insert ".\n\n") (insert ".\n\n")
@ -361,7 +361,7 @@
(λ (x y) (λ (x y)
(send-url url)))))]) (send-url url)))))])
(add (string-constant drscheme-homepage) "http://www.drscheme.org/") (add (string-constant drscheme-homepage) "http://www.drscheme.org/")
(add (string-constant plt-homepage) "http://www.plt-scheme.org/") (add (string-constant plt-homepage) "http://racket-lang.org/")
(add (string-constant teachscheme!-homepage) "http://www.teach-scheme.org/") (add (string-constant teachscheme!-homepage) "http://www.teach-scheme.org/")
(add (string-constant how-to-design-programs) "http://www.htdp.org/") (add (string-constant how-to-design-programs) "http://www.htdp.org/")

2
collects/drracket/private/debug.rkt
View File

@ -360,7 +360,7 @@ profile todo:
(make-url (make-url
"http" "http"
#f #f
"planet.plt-scheme.org" "planet.racket-lang.org"
#f #f
#t #t
(list (make-path/param "trac" '()) (list (make-path/param "trac" '())

2
collects/handin-client/handin-multi.rkt
View File

@ -5,7 +5,7 @@
(define handin-name (#%info-lookup 'name)) (define handin-name (#%info-lookup 'name))
(define web-address (#%info-lookup 'web-address (define web-address (#%info-lookup 'web-address
(lambda () "http://www.plt-scheme.org"))) (lambda () "http://racket-lang.org")))
(define selection-mode (#%info-lookup 'selection-mode (lambda () 'extended))) (define selection-mode (#%info-lookup 'selection-mode (lambda () 'extended)))
(define selection-defaults (define selection-defaults
(let ([sd (#%info-lookup 'selection-default (lambda () '("*.scm" "*.ss")))]) (let ([sd (#%info-lookup 'selection-default (lambda () '("*.scm" "*.ss")))])

2
collects/help/bug-report.rkt
View File

@ -15,7 +15,7 @@
(provide help-desk:report-bug) (provide help-desk:report-bug)
(define bug-www-server "bugs.plt-scheme.org") (define bug-www-server "bugs.racket-lang.org")
(define bug-www-server-port 80) (define bug-www-server-port 80)
;; this one should be defined by help desk. ;; this one should be defined by help desk.

2
collects/help/search.rkt
View File

@ -21,7 +21,7 @@
;; running a browser on local files (like NEU). If you use this, then ;; running a browser on local files (like NEU). If you use this, then
;; it is a good idea to put the documentation tree somewhere local, to ;; it is a good idea to put the documentation tree somewhere local, to
;; have better interaction times and not overload the PLT server. ;; have better interaction times and not overload the PLT server.
;; (define doc-url "http://download.plt-scheme.org/doc/4.1/html/") ;; (define doc-url "http://download.racket-lang.org/doc/4.1/html/")
;; (define (send-main-page #:sub [sub "index.html"] ;; (define (send-main-page #:sub [sub "index.html"]
;; #:fragment [fragment #f] #:query [query #f]) ;; #:fragment [fragment #f] #:query [query #f])
;; (define (part pfx x) (if x (list pfx x) '())) ;; (define (part pfx x) (if x (list pfx x) '()))

2
collects/meta/build/build
View File

@ -890,7 +890,7 @@ html_begin() { # inputs: title [output-name]
echo "<table width=\"90%\" align=\"center\" bgcolor=\"#ff9600\"" echo "<table width=\"90%\" align=\"center\" bgcolor=\"#ff9600\""
echo " border=\"0\" cellpadding=\"10\"><tr>" echo " border=\"0\" cellpadding=\"10\"><tr>"
echo " <td width=\"10\">" echo " <td width=\"10\">"
echo " <img src=\"http://www.plt-scheme.org/plt-orange-med.jpg\">" echo " <img src=\"http://racket-lang.org/plt-orange-med.jpg\">"
echo " </td>" echo " </td>"
echo " <td align=\"left\">" echo " <td align=\"left\">"
echo " <div style=\"font-family: Arial, Helvetica, sans-serif\">" echo " <div style=\"font-family: Arial, Helvetica, sans-serif\">"

8
collects/meta/build/nsis/plt-installer.nsi
View File

@ -54,8 +54,8 @@ InstallDir "$PROGRAMFILES\${PLTDirName}"
!define MUI_FINISHPAGE_RUN "$INSTDIR\DrScheme.exe" !define MUI_FINISHPAGE_RUN "$INSTDIR\DrScheme.exe"
!define MUI_FINISHPAGE_RUN_TEXT "Run DrScheme" !define MUI_FINISHPAGE_RUN_TEXT "Run DrScheme"
!endif !endif
!define MUI_FINISHPAGE_LINK "Visit the PLT Scheme web site" !define MUI_FINISHPAGE_LINK "Visit the Racket web site"
!define MUI_FINISHPAGE_LINK_LOCATION "http://www.plt-scheme.org/" !define MUI_FINISHPAGE_LINK_LOCATION "http://racket-lang.org/"
; !define MUI_UNFINISHPAGE_NOAUTOCLOSE ; to allow users see what was erased ; !define MUI_UNFINISHPAGE_NOAUTOCLOSE ; to allow users see what was erased
@ -221,8 +221,8 @@ Section ""
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "DisplayIcon" "$INSTDIR\DrScheme.exe,0" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "DisplayIcon" "$INSTDIR\DrScheme.exe,0"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "DisplayVersion" "${PLTVersion}" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "DisplayVersion" "${PLTVersion}"
; used to also have "VersionMajor" & "VersionMinor" but looks like it's not needed ; used to also have "VersionMajor" & "VersionMinor" but looks like it's not needed
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "HelpLink" "http://www.plt-scheme.org/" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "HelpLink" "http://racket-lang.org/"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "URLInfoAbout" "http://www.plt-scheme.org/" WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "URLInfoAbout" "http://racket-lang.org/"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "Publisher" "PLT Scheme Inc." WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "Publisher" "PLT Scheme Inc."
WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "NoModify" "1" WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "NoModify" "1"
WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "NoRepair" "1" WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PLTRegName}" "NoRepair" "1"

4
collects/meta/build/readme-specs
View File

@ -130,8 +130,8 @@ more-information
:= "More Information" \\ := "More Information" \\
"----------------" \\ "----------------" \\
\\ \\
"For further information, use DrScheme's `Help' menu, or run "plt-help*". " "For further information, use DrRacket's `Help' menu, or run "plt-help*". "
"Also, visit http://www.plt-scheme.org/." \\ "Also, visit http://racket-lang.org/." \\
readme readme
:= intro \\ main \\ \\ license \\ \\ more-information := intro \\ main \\ \\ license \\ \\ more-information

2
collects/mzlib/zip.rkt
View File

@ -26,7 +26,7 @@
(define *spec-version* 62) ; version 6.2 (define *spec-version* 62) ; version 6.2
(define *required-version* 20) ; version 2.0 (define *required-version* 20) ; version 2.0
(define *compression-level* 8) ; I don't think this is configurable (define *compression-level* 8) ; I don't think this is configurable
(define *zip-comment* #"packed by PLT Scheme - http://www.plt-scheme.org/") (define *zip-comment* #"packed by Racket - http://racket-lang.org/")
;; PKZIP specification: ;; PKZIP specification:
;; http://www.pkware.com/company/standards/appnote/ ;; http://www.pkware.com/company/standards/appnote/

4
collects/net/scribblings/url.scrbl
View File

@ -69,9 +69,9 @@ adjusts the behavior.
An empty string at the end of the @scheme[path] list corresponds to a An empty string at the end of the @scheme[path] list corresponds to a
URL that ends in a slash. For example, the result of URL that ends in a slash. For example, the result of
@scheme[(string->url "http://www.drscheme.org/a/")] has a @scheme[(string->url "http://racket-lang.org/a/")] has a
@scheme[path] field with strings @scheme["a"] and @scheme[""], while @scheme[path] field with strings @scheme["a"] and @scheme[""], while
the result of @scheme[(string->url "http://www.drscheme.org/a")] has a the result of @scheme[(string->url "http://racket-lang.org/a")] has a
@scheme[path] field with only the string @scheme["a"]. @scheme[path] field with only the string @scheme["a"].
When a @scheme["file"] URL is represented by a @scheme[url] structure, When a @scheme["file"] URL is represented by a @scheme[url] structure,

4
collects/racket/help.rkt
View File

@ -46,7 +46,7 @@
(go-to-main-page)) (go-to-main-page))
;; Autoload utilities from help/help-utils; if it does not exists, ;; Autoload utilities from help/help-utils; if it does not exists,
;; suggest using docs.plt-scheme.org. ;; suggest using docs.racket-lang.org.
(define-namespace-anchor anchor) (define-namespace-anchor anchor)
(define get-binding (define get-binding
@ -65,7 +65,7 @@
'help 'help
(string-append (string-append
"documentation system unavailable; " "documentation system unavailable; "
"try http://docs.plt-scheme.org/")))]) "try http://docs.racket-lang.org/")))])
(dynamic-require 'help/help-utils sym))))) (dynamic-require 'help/help-utils sym)))))
(define-syntax-rule (define-help-autoload id) (define-syntax-rule (define-help-autoload id)

4
collects/scribblings/scribble/core.scrbl
View File

@ -332,8 +332,8 @@ The recognized @tech{style properties} are as follows:
string @tt{id} attribute of the @tt{body} tag; this style can string @tt{id} attribute of the @tt{body} tag; this style can
be set separately for parts that start different HTML pages, be set separately for parts that start different HTML pages,
otherwise it is effectively inherited by sub-parts; the otherwise it is effectively inherited by sub-parts; the
default is @racket["scribble-plt-scheme.org"], but default is @racket["scribble-racket-lang.org"], but
@exec{setup-plt} installs @racket["doc-plt-scheme.org"] as the @exec{setup-plt} installs @racket["doc-racket-lang.org"] as the
@tt{id} for any document that it builds.} @tt{id} for any document that it builds.}
] ]

8
collects/sirmail/pref.rkt
View File

@ -39,15 +39,15 @@
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(preferences:set-default 'sirmail:mail-from "SirMail User <sirmail@plt-scheme.org>" string?) (preferences:set-default 'sirmail:mail-from "SirMail User <sirmail@racket-lang.org>" string?)
(preferences:set-default 'sirmail:username "username" string?) (preferences:set-default 'sirmail:username "username" string?)
(preferences:set-default 'sirmail:password #f string-or-false?) (preferences:set-default 'sirmail:password #f string-or-false?)
(preferences:set-default 'sirmail:default-to-domain "plt-scheme.org" ip-string?) (preferences:set-default 'sirmail:default-to-domain "racket-lang.org" ip-string?)
(preferences:set-default 'sirmail:imap-server "imap.plt-scheme.org" ip-string?) (preferences:set-default 'sirmail:imap-server "imap.racket-lang.org" ip-string?)
(preferences:set-default 'sirmail:use-ssl? #f boolean?) (preferences:set-default 'sirmail:use-ssl? #f boolean?)
(preferences:set-default 'sirmail:server-certificate #f abs-path-or-false?) (preferences:set-default 'sirmail:server-certificate #f abs-path-or-false?)
(preferences:set-default 'sirmail:smtp-server "sendmail.plt-scheme.org" ip-string?) (preferences:set-default 'sirmail:smtp-server "sendmail.racket-lang.org" ip-string?)
(preferences:set-default 'sirmail:local-directory (preferences:set-default 'sirmail:local-directory
(build-path (find-system-path 'home-dir) (build-path (find-system-path 'home-dir)

4
collects/tests/net/url.rkt
View File

@ -228,8 +228,8 @@
"HTTP://ROBBY@WWW.DRSCHEME.ORG:80/INDEX.HTML;XXX?T=P#YYY") "HTTP://ROBBY@WWW.DRSCHEME.ORG:80/INDEX.HTML;XXX?T=P#YYY")
=> #("http" "ROBBY" "www.drscheme.org" 80 #t (#("INDEX.HTML" "XXX")) ((T . "P")) "YYY")) => #("http" "ROBBY" "www.drscheme.org" 80 #t (#("INDEX.HTML" "XXX")) ((T . "P")) "YYY"))
(test-s->u #("mailto" #f #f #f #f (#("robby@plt-scheme.org")) () #f) (test-s->u #("mailto" #f #f #f #f (#("robby@racket-lang.org")) () #f)
"mailto:robby@plt-scheme.org") "mailto:robby@racket-lang.org")
(test (string->url/vec "http://www.drscheme.org?bar=馨慧") (test (string->url/vec "http://www.drscheme.org?bar=馨慧")
#("http" #f "www.drscheme.org" #f #f () ((bar . "馨慧")) #f)) #("http" #f "www.drscheme.org" #f #f () ((bar . "馨慧")) #f))

2
collects/tests/r6rs/README.txt
View File

@ -59,7 +59,7 @@ that is much larger than in a typical program, which might give some
compilers trouble. compilers trouble.
In any case, reports of bugs (in the tests) and new tests would be In any case, reports of bugs (in the tests) and new tests would be
very much appreciated. File either as a PLT Scheme bug report at very much appreciated. File either as a Racket bug report at
http://bugs.plt-scheme.org http://bugs.plt-scheme.org

2
collects/tests/racket/README
View File

@ -30,4 +30,4 @@ Run 3 copies of the test suite concurrently in separate threads:
Please report bugs using Help Desk, or Please report bugs using Help Desk, or
http://bugs.plt-scheme.org/ http://bugs.plt-scheme.org/
or (as a last resort) send mail to or (as a last resort) send mail to
scheme@plt-scheme.org scheme@racket-lang.org

2
collects/tests/racket/benchmarks/common/index-template.html
View File

@ -66,5 +66,5 @@ significant improvements from some compilers.</p>
infrastructure, which is available form the PLT SVN repository:</p> infrastructure, which is available form the PLT SVN repository:</p>
<p align=center> <p align=center>
<a href="http://svn.plt-scheme.org/plt/trunk/collects/tests/mzscheme/benchmarks/common/">http://svn.plt-scheme.org/plt/trunk/collects/tests/mzscheme/benchmarks/common/</a></P> <a href="http://git.racket-lang.org/plt/tree/HEAD:/collects/tests/racket/benchmarks/common/">http://git.racket-lang.org/plt/tree/HEAD:/collects/tests/racket/benchmarks/common/</a></P>

4
collects/tests/racket/benchmarks/common/tabulate.rkt
View File

@ -376,8 +376,8 @@ exec racket -qu "$0" ${1+"$@"}
(lambda (fastest n-fastest c-fastest relative-to (lambda (fastest n-fastest c-fastest relative-to
base n-base c-base) base n-base c-base)
`(tr (td ,(if (include-links) `(tr (td ,(if (include-links)
`(a ((href ,(format (string-append "http://svn.plt-scheme.org/plt/trunk/collects/" `(a ((href ,(format (string-append "http://git.racket-lang.org/plt/tree/HEAD:/collects/"
"tests/mzscheme/benchmarks/common/~a.sch") "tests/racket/benchmarks/common/~a.sch")
(car bm-run)))) (car bm-run))))
,(symbol->string (car bm-run))) ,(symbol->string (car bm-run)))
(symbol->string (car bm-run)))) (symbol->string (car bm-run))))

46
collects/tests/racket/head.rktl
View File

@ -3,42 +3,42 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;
;; url.ss tests ;; net/head tests
;; ;;
(require net/head) (require net/head)
(for-each (for-each
(lambda (addr) (lambda (addr)
(test '("o.gu@plt-scheme.com") extract-addresses (car addr) 'address) (test '("o.gu@racket-lang.com") extract-addresses (car addr) 'address)
(test '("o.gu@plt-scheme.com" "o.gu@plt-scheme.com") extract-addresses (test '("o.gu@racket-lang.com" "o.gu@racket-lang.com") extract-addresses
(format "~a, ~a" (car addr) (car addr)) (format "~a, ~a" (car addr) (car addr))
'address) 'address)
(test (list (cdr addr)) extract-addresses (car addr) 'name) (test (list (cdr addr)) extract-addresses (car addr) 'name)
(for-each (for-each
(lambda (addr2) (lambda (addr2)
(let ([two (format " ~a, \n\t~a" (car addr) (car addr2))]) (let ([two (format " ~a, \n\t~a" (car addr) (car addr2))])
(test '("o.gu@plt-scheme.com" "s.gu@plt-scheme.org") extract-addresses two 'address) (test '("o.gu@racket-lang.com" "s.gu@racket-lang.org") extract-addresses two 'address)
(test (list (cdr addr) (cdr addr2)) extract-addresses two 'name))) (test (list (cdr addr) (cdr addr2)) extract-addresses two 'name)))
'(("s.gu@plt-scheme.org" . "s.gu@plt-scheme.org") '(("s.gu@racket-lang.org" . "s.gu@racket-lang.org")
("<s.gu@plt-scheme.org>" . "s.gu@plt-scheme.org") ("<s.gu@racket-lang.org>" . "s.gu@racket-lang.org")
("s.gu@plt-scheme.org (Gu, Sophia)" . "Gu, Sophia") ("s.gu@racket-lang.org (Gu, Sophia)" . "Gu, Sophia")
("s.gu@plt-scheme.org (Sophia Gu)" . "Sophia Gu") ("s.gu@racket-lang.org (Sophia Gu)" . "Sophia Gu")
("s.gu@plt-scheme.org (Sophia \"Sophie\" Gu)" . "Sophia \"Sophie\" Gu") ("s.gu@racket-lang.org (Sophia \"Sophie\" Gu)" . "Sophia \"Sophie\" Gu")
("Sophia Gu <s.gu@plt-scheme.org>" . "Sophia Gu") ("Sophia Gu <s.gu@racket-lang.org>" . "Sophia Gu")
("\"Gu, Sophia\" <s.gu@plt-scheme.org>" . "\"Gu, Sophia\"") ("\"Gu, Sophia\" <s.gu@racket-lang.org>" . "\"Gu, Sophia\"")
("\"Gu, Sophia (Sophie)\" <s.gu@plt-scheme.org>" . "\"Gu, Sophia (Sophie)\"")))) ("\"Gu, Sophia (Sophie)\" <s.gu@racket-lang.org>" . "\"Gu, Sophia (Sophie)\""))))
'(("o.gu@plt-scheme.com" . "o.gu@plt-scheme.com") '(("o.gu@racket-lang.com" . "o.gu@racket-lang.com")
("<o.gu@plt-scheme.com>" . "o.gu@plt-scheme.com") ("<o.gu@racket-lang.com>" . "o.gu@racket-lang.com")
("o.gu@plt-scheme.com (Gu, Oliver)" . "Gu, Oliver") ("o.gu@racket-lang.com (Gu, Oliver)" . "Gu, Oliver")
("o.gu@plt-scheme.com (Oliver Gu)" . "Oliver Gu") ("o.gu@racket-lang.com (Oliver Gu)" . "Oliver Gu")
("o.gu@plt-scheme.com (Oliver \"Ollie\" Gu)" . "Oliver \"Ollie\" Gu") ("o.gu@racket-lang.com (Oliver \"Ollie\" Gu)" . "Oliver \"Ollie\" Gu")
("o.gu@plt-scheme.com (Oliver \"Ollie Gu)" . "Oliver \"Ollie Gu") ("o.gu@racket-lang.com (Oliver \"Ollie Gu)" . "Oliver \"Ollie Gu")
("Oliver Gu <o.gu@plt-scheme.com>" . "Oliver Gu") ("Oliver Gu <o.gu@racket-lang.com>" . "Oliver Gu")
("\"Gu, Oliver\" <o.gu@plt-scheme.com>" . "\"Gu, Oliver\"") ("\"Gu, Oliver\" <o.gu@racket-lang.com>" . "\"Gu, Oliver\"")
("\"Gu, Oliver (Ollie)\" <o.gu@plt-scheme.com>" . "\"Gu, Oliver (Ollie)\"") ("\"Gu, Oliver (Ollie)\" <o.gu@racket-lang.com>" . "\"Gu, Oliver (Ollie)\"")
("\"Gu, Oliver (Ollie\" <o.gu@plt-scheme.com>" . "\"Gu, Oliver (Ollie\"") ("\"Gu, Oliver (Ollie\" <o.gu@racket-lang.com>" . "\"Gu, Oliver (Ollie\"")
("\"Gu, Oliver (Ollie, himself)\" <o.gu@plt-scheme.com>" . "\"Gu, Oliver (Ollie, himself)\""))) ("\"Gu, Oliver (Ollie, himself)\" <o.gu@racket-lang.com>" . "\"Gu, Oliver (Ollie, himself)\"")))
(report-errs) (report-errs)

2
collects/version/check.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(define version-url "http://download.plt-scheme.org/version.txt") (define version-url "http://download.racket-lang.org/version.txt")
(define timeout 30) (define timeout 30)
(require "utils.ss") (require "utils.ss")

2
collects/version/doc.txt
View File

@ -8,7 +8,7 @@ single function:
> (check-version) > (check-version)
This procedure checks the currently available version on the PLT This procedure checks the currently available version on the PLT
website (doanload.plt-scheme.org), and returns a value that indicates website (doanload.racket-lang.org), and returns a value that indicates
your current state -- one of these: your current state -- one of these:
* `ok * `ok

2
collects/version/tool.rkt
View File

@ -5,7 +5,7 @@
"patchlevel.ss" "patchlevel.ss"
"check.ss") "check.ss")
(define download-url "http://download.plt-scheme.org/") (define download-url "http://download.racket-lang.org/")
;; either 'yes, 'no, or something else, see `enabled?' below for a reason ;; either 'yes, 'no, or something else, see `enabled?' below for a reason
(preferences:set-default 'updates:enabled? 'unset symbol?) (preferences:set-default 'updates:enabled? 'unset symbol?)

2
collects/version/version.scrbl
View File

@ -36,7 +36,7 @@ but may be updated by patches to DrRacket.}
@defproc[(check-version) (or/c symbol? list?)]{ @defproc[(check-version) (or/c symbol? list?)]{
Checks the currently available version on the PLT website Checks the currently available version on the PLT website
(@selflink["http://download.plt-scheme.org"]) and returns a value that (@selflink["http://download.racket-lang.org"]) and returns a value that
indicates the current state of the curent installation: indicates the current state of the curent installation:
@itemize[ @itemize[

4
collects/web-server/default-web-root/htdocs/index.html
View File

@ -11,8 +11,8 @@
<tr><td> <tr><td>
<h2>Welcome to the Racket Web Server</h2> <h2>Welcome to the Racket Web Server</h2>
<p>Find out more about writing servlets by reading the <a href="http://docs.plt-scheme.org/continue/index.html">Continue tutorial</a> in the Help Desk.</p> <p>Find out more about writing servlets by reading the <a href="http://docs.racket-lang.org/continue/index.html">Continue tutorial</a> in the Help Desk.</p>
<p>Find out more about the server by reading its <a href="http://docs.plt-scheme.org/web-server/index.html">reference manual</a> in the Help Desk.</p> <p>Find out more about the server by reading its <a href="http://docs.racket-lang.org/web-server/index.html">reference manual</a> in the Help Desk.</p>
<p>Please replace this page with your favorite index page.</p> <p>Please replace this page with your favorite index page.</p>

12
src/lt/configure vendored
View File

@ -2,7 +2,7 @@
# Guess values for system-dependent variables and create Makefiles. # Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.59 for lt 1.0. # Generated by GNU Autoconf 2.59 for lt 1.0.
# #
# Report bugs to <mflatt@plt-scheme.org>. # Report bugs to <mflatt@racket-lang.org>.
# #
# Copyright (C) 2003 Free Software Foundation, Inc. # Copyright (C) 2003 Free Software Foundation, Inc.
# This configure script is free software; the Free Software Foundation # This configure script is free software; the Free Software Foundation
@ -425,7 +425,7 @@ PACKAGE_NAME='lt'
PACKAGE_TARNAME='lt' PACKAGE_TARNAME='lt'
PACKAGE_VERSION='1.0' PACKAGE_VERSION='1.0'
PACKAGE_STRING='lt 1.0' PACKAGE_STRING='lt 1.0'
PACKAGE_BUGREPORT='mflatt@plt-scheme.org' PACKAGE_BUGREPORT='mflatt@racket-lang.org'
# Factoring default headers for most tests. # Factoring default headers for most tests.
ac_includes_default="\ ac_includes_default="\
@ -1055,7 +1055,7 @@ Some influential environment variables:
Use these variables to override the choices made by `configure' or to help Use these variables to override the choices made by `configure' or to help
it to find libraries and programs with nonstandard names/locations. it to find libraries and programs with nonstandard names/locations.
Report bugs to <mflatt@plt-scheme.org>. Report bugs to <mflatt@racket-lang.org>.
_ACEOF _ACEOF
fi fi
@ -3872,9 +3872,9 @@ echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&
echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;}
( (
cat <<\_ASBOX cat <<\_ASBOX
## ------------------------------------ ## ## ------------------------------------- ##
## Report this to mflatt@plt-scheme.org ## ## Report this to mflatt@racket-lang.org ##
## ------------------------------------ ## ## ------------------------------------- ##
_ASBOX _ASBOX
) | ) |
sed "s/^/$as_me: WARNING: /" >&2 sed "s/^/$as_me: WARNING: /" >&2

2
src/lt/configure.in
View File

@ -1,3 +1,3 @@
AC_INIT(lt, 1.0, mflatt@plt-scheme.org) AC_INIT(lt, 1.0, mflatt@racket-lang.org)
AC_PROG_LIBTOOL AC_PROG_LIBTOOL

2
src/worksp/mzcom/README
View File

@ -7,4 +7,4 @@ You'll also need the Racket sources to compile
MzCOM. See plt/src/worksp/README for more information MzCOM. See plt/src/worksp/README for more information
on compiling Racket. on compiling Racket.
Send questions to Paul Steckler, steck@plt-scheme.org. Send questions to Paul Steckler, steck@racket-lang.org.