diff --git a/collects/scribble/private/lp.rkt b/collects/scribble/private/lp.rkt index 64039e78..ac8a10f6 100644 --- 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 index 192304f7..8423a1f5 100644 --- 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 index 32e8d4b0..a72be88a 100644 --- 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 index 5bb02887..bcae6287 100644 --- 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 index e09ff9d6..d3e2c0fb 100644 --- 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 index b2941062..6352c83f 100644 --- 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?]