commit d2eb729e493d284d2291472b9b943d3b07928e2b
parent 0ed2447eb9705e5fe3acb50638f11ac33bfe8629
Author: Eli Barzilay <eli@barzilay.org>
Date: Mon, 27 Jun 2011 22:24:08 -0400
Finish converting `scheme' -> `racket'.
Everything compiles fine now even if the compatibility bindings are
gone.
original commit: a38f384a002ccf6c3cbaab813fe080ca226e4a59
Diffstat:
6 files changed, 12 insertions(+), 10 deletions(-)
diff --git a/collects/scribble/private/lp.rkt b/collects/scribble/private/lp.rkt
@@ -62,7 +62,7 @@
(list (make-toc-element
#f
(list (elemtag '(chunk tag)
- (bold (italic (scheme name)) " ::=")))
+ (bold (italic (racket name)) " ::=")))
(list (smaller (elemref '(chunk tag) #:underline? #f
str
rest ...))))
diff --git a/collects/scribble/private/manual-class.rkt b/collects/scribble/private/manual-class.rkt
@@ -412,7 +412,7 @@
(case (syntax-e #'mode)
[(pubment)
#'((t "Refine this method with "
- (scheme augment) "."))]
+ (racket augment) "."))]
[(override override-final extend augment)
#`((t (case (syntax-e #'mode)
[(override override-final) "Overrides "]
diff --git a/collects/scribble/private/manual-method.rkt b/collects/scribble/private/manual-method.rkt
@@ -17,7 +17,7 @@
(*method 'b (quote-syntax a)))
(define-syntax-rule (xmethod a b)
- (elem (method a b) " in " (scheme a)))
+ (elem (method a b) " in " (racket a)))
(define (*method sym id)
(**method sym id))
diff --git a/collects/scribble/private/manual-mod.rkt b/collects/scribble/private/manual-mod.rkt
@@ -28,7 +28,8 @@
(list . content)
req)]
[(_ (name ...) . content)
- (defmodule*/no-declare #:require-form (scheme require) (name ...) . content)]))
+ (defmodule*/no-declare #:require-form (racket require) (name ...)
+ . content)]))
(define-syntax defmodule*
(syntax-rules ()
@@ -38,7 +39,8 @@
[(_ #:require-form req (name ...) . content)
(defmodule* #:require-form req (name ...) #:use-sources () . content)]
[(_ (name ...) #:use-sources (pname ...) . content)
- (defmodule* #:require-form (scheme require) (name ...) #:use-sources (pname ...) . content)]
+ (defmodule* #:require-form (racket require) (name ...) #:use-sources (pname ...)
+ . content)]
[(_ (name ...) . content)
(defmodule* (name ...) #:use-sources () . content)]))
diff --git a/collects/scribble/srcdoc.rkt b/collects/scribble/srcdoc.rkt
@@ -71,11 +71,11 @@
[(->d (req ...) () (values [name res] ...))
#'((id req ...) (values res ...) ())]
[(->d (req ...) () #:pre-cond condition (values [name res] ...))
- #'((id req ...) (values res ...) ((bold "Pre-condition: ") (scheme condition) "\n" "\n"))]
+ #'((id req ...) (values res ...) ((bold "Pre-condition: ") (racket condition) "\n" "\n"))]
[(->d (req ...) () [name res])
#'((id req ...) res ())]
[(->d (req ...) () #:pre-cond condition [name res])
- #'((id req ...) res ((bold "Pre-condition: ") (scheme condition) "\n" "\n" ))]
+ #'((id req ...) res ((bold "Pre-condition: ") (racket condition) "\n" "\n" ))]
[(->d (req ...) () #:rest rest rest-ctc [name res])
#'((id req ... [rest rest-ctc] (... ...)) res ())]
[(->d (req ...) (one more ...) whatever)
@@ -99,7 +99,7 @@
[(->i (req ...) () #:pre (pre-id ...) condition (values ress ...))
(with-syntax ([(req ...) (map remove->i-deps (syntax->list #'(req ...)))]
[([name res] ...) (map remove->i-deps (syntax->list #'(req ...)))])
- #'((id req ...) (values res ...) ((bold "Pre-condition: ") (scheme condition) "\n" "\n")))]
+ #'((id req ...) (values res ...) ((bold "Pre-condition: ") (racket condition) "\n" "\n")))]
[(->i (req ...) () res)
(with-syntax ([(req ...) (map remove->i-deps (syntax->list #'(req ...)))]
[[name res] (remove->i-deps #'res)])
@@ -107,7 +107,7 @@
[(->i (req ...) () #:pre (pre-id ...) condition [name res])
(with-syntax ([(req ...) (map remove->i-deps (syntax->list #'(req ...)))]
[[name res] (remove->i-deps #'res)])
- #'((id req ...) res ((bold "Pre-condition: ") (scheme condition) "\n" "\n" )))]
+ #'((id req ...) res ((bold "Pre-condition: ") (racket condition) "\n" "\n" )))]
[(->i (req ...) () #:rest rest res)
(with-syntax ([(req ...) (map remove->i-deps (syntax->list #'(req ...)))]
[[name res] (remove->i-deps #'res)]
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
@@ -344,7 +344,7 @@ in a form definition.}
@defform[(schemeresult datum ...)]
@defform[(schemeid datum ...)]
@defform*[((schememodname datum)
- (schememodname ((unsyntax (scheme unsyntax)) expr)))]
+ (schememodname ((unsyntax (racket unsyntax)) expr)))]
@defform[(schememodlink datum pre-content-expr ...)]
@defproc[(schemefont [pre-content pre-content?] ...) element?]
@defproc[(schemevalfont [pre-content pre-content?] ...) element?]
