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

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

View File

@ -504,7 +504,7 @@
(printf
(string-append
" 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")))))
msgs)

View File

@ -165,7 +165,7 @@
(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
(insert ".\n\n")
@ -361,7 +361,7 @@
(λ (x y)
(send-url url)))))])
(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 how-to-design-programs) "http://www.htdp.org/")

View File

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

View File

@ -5,7 +5,7 @@
(define handin-name (#%info-lookup 'name))
(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-defaults
(let ([sd (#%info-lookup 'selection-default (lambda () '("*.scm" "*.ss")))])

View File

@ -15,7 +15,7 @@
(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)
;; this one should be defined by help desk.

View File

@ -21,7 +21,7 @@
;; 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
;; 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"]
;; #:fragment [fragment #f] #:query [query #f])
;; (define (part pfx x) (if x (list pfx x) '()))

View File

@ -890,7 +890,7 @@ html_begin() { # inputs: title [output-name]
echo "<table width=\"90%\" align=\"center\" bgcolor=\"#ff9600\""
echo " border=\"0\" cellpadding=\"10\"><tr>"
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 align=\"left\">"
echo " <div style=\"font-family: Arial, Helvetica, sans-serif\">"

View File

@ -54,8 +54,8 @@ InstallDir "$PROGRAMFILES\${PLTDirName}"
!define MUI_FINISHPAGE_RUN "$INSTDIR\DrScheme.exe"
!define MUI_FINISHPAGE_RUN_TEXT "Run DrScheme"
!endif
!define MUI_FINISHPAGE_LINK "Visit the PLT Scheme web site"
!define MUI_FINISHPAGE_LINK_LOCATION "http://www.plt-scheme.org/"
!define MUI_FINISHPAGE_LINK "Visit the Racket web site"
!define MUI_FINISHPAGE_LINK_LOCATION "http://racket-lang.org/"
; !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}" "DisplayVersion" "${PLTVersion}"
; 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}" "URLInfoAbout" "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://racket-lang.org/"
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}" "NoRepair" "1"

View File

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

View File

@ -26,7 +26,7 @@
(define *spec-version* 62) ; version 6.2
(define *required-version* 20) ; version 2.0
(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:
;; http://www.pkware.com/company/standards/appnote/

View File

@ -69,9 +69,9 @@ adjusts the behavior.
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
@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
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"].
When a @scheme["file"] URL is represented by a @scheme[url] structure,

View File

@ -46,7 +46,7 @@
(go-to-main-page))
;; 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 get-binding
@ -65,7 +65,7 @@
'help
(string-append
"documentation system unavailable; "
"try http://docs.plt-scheme.org/")))])
"try http://docs.racket-lang.org/")))])
(dynamic-require 'help/help-utils sym)))))
(define-syntax-rule (define-help-autoload id)

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
be set separately for parts that start different HTML pages,
otherwise it is effectively inherited by sub-parts; the
default is @racket["scribble-plt-scheme.org"], but
@exec{setup-plt} installs @racket["doc-plt-scheme.org"] as the
default is @racket["scribble-racket-lang.org"], but
@exec{setup-plt} installs @racket["doc-racket-lang.org"] as the
@tt{id} for any document that it builds.}
]

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: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: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
(build-path (find-system-path 'home-dir)

View File

@ -228,8 +228,8 @@
"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"))
(test-s->u #("mailto" #f #f #f #f (#("robby@plt-scheme.org")) () #f)
"mailto:robby@plt-scheme.org")
(test-s->u #("mailto" #f #f #f #f (#("robby@racket-lang.org")) () #f)
"mailto:robby@racket-lang.org")
(test (string->url/vec "http://www.drscheme.org?bar=馨慧")
#("http" #f "www.drscheme.org" #f #f () ((bar . "馨慧")) #f))

View File

@ -59,7 +59,7 @@ that is much larger than in a typical program, which might give some
compilers trouble.
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

View File

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

View File

@ -66,5 +66,5 @@ significant improvements from some compilers.</p>
infrastructure, which is available form the PLT SVN repository:</p>
<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>

View File

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

View File

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

View File

@ -1,6 +1,6 @@
#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)
(require "utils.ss")

View File

@ -8,7 +8,7 @@ single function:
> (check-version)
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:
* `ok

View File

@ -5,7 +5,7 @@
"patchlevel.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
(preferences:set-default 'updates:enabled? 'unset symbol?)

View File

@ -36,7 +36,7 @@ but may be updated by patches to DrRacket.}
@defproc[(check-version) (or/c symbol? list?)]{
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:
@itemize[

View File

@ -11,8 +11,8 @@
<tr><td>
<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 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 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.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>

12
src/lt/configure vendored
View File

@ -2,7 +2,7 @@
# Guess values for system-dependent variables and create Makefiles.
# 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.
# This configure script is free software; the Free Software Foundation
@ -425,7 +425,7 @@ PACKAGE_NAME='lt'
PACKAGE_TARNAME='lt'
PACKAGE_VERSION='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.
ac_includes_default="\
@ -1055,7 +1055,7 @@ Some influential environment variables:
Use these variables to override the choices made by `configure' or to help
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
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;}
(
cat <<\_ASBOX
## ------------------------------------ ##
## Report this to mflatt@plt-scheme.org ##
## ------------------------------------ ##
## ------------------------------------- ##
## Report this to mflatt@racket-lang.org ##
## ------------------------------------- ##
_ASBOX
) |
sed "s/^/$as_me: WARNING: /" >&2

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

View File

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