diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt index 74c65d9c6c..541615617f 100644 --- a/collects/2htdp/private/image-more.rkt +++ b/collects/2htdp/private/image-more.rkt @@ -1003,7 +1003,7 @@ ; excess : R+ R+ -> R ; compute the Euclidean excess -; Note: If the excess is 0, the the C is 90 deg. +; Note: If the excess is 0, then C is 90 deg. ; If the excess is negative, then C is obtuse. ; If the excess is positive, then C is acuse. (define (excess a b c) diff --git a/collects/meta/build/build b/collects/meta/build/build index 6337969dd7..d642f1457c 100755 --- a/collects/meta/build/build +++ b/collects/meta/build/build @@ -149,7 +149,7 @@ webscript="collects/meta/web/build.rkt" # sitemap materials sitemapdir="$scriptdir/sitemap" -# platform-installer stuff, all relative the the racket tree +# platform-installer stuff, all relative to the racket tree nsisdir="$scriptdir/nsis" unixinstallerdir="$scriptdir/unix-installer" unixpathcheckscript="$unixinstallerdir/check-install-paths" diff --git a/collects/meta/web/stubs/git.rkt b/collects/meta/web/stubs/git.rkt index f543d2256f..f52770d09c 100644 --- a/collects/meta/web/stubs/git.rkt +++ b/collects/meta/web/stubs/git.rkt @@ -2601,7 +2601,7 @@ accept it. On the other hand, if you're working with someone specific, they might prefer attachments (for example, it's easier to save the attached file from gmail).}} -@~ Once the commits have been pushed the the main repository, you would get +@~ Once the commits have been pushed to the main repository, you would get them when you pull to update. The commits will now be different objects than the ones you have — since the information changed (at least the committer information will be different, the log message might have been diff --git a/collects/mzlib/private/contract-arr-checks.rkt b/collects/mzlib/private/contract-arr-checks.rkt index 9bbb341fc1..19c887aeec 100644 --- a/collects/mzlib/private/contract-arr-checks.rkt +++ b/collects/mzlib/private/contract-arr-checks.rkt @@ -161,7 +161,7 @@ (raise-blame-error blame val - "expected a procedure that accepts ~a arguments and and arbitrarily more~a, given: ~e" + "expected a procedure that accepts ~a arguments and arbitrarily more~a, given: ~e" dom-length (keyword-error-text mandatory-kwds) val))) diff --git a/collects/parser-tools/parser-tools.scrbl b/collects/parser-tools/parser-tools.scrbl index 2954ae2e75..90debe4624 100644 --- a/collects/parser-tools/parser-tools.scrbl +++ b/collects/parser-tools/parser-tools.scrbl @@ -140,7 +140,7 @@ are a few examples, using @scheme[:] prefixed SRE syntax: @item{@schemeblock0[(:: "/*" (:* (complement "*/")) "*/")] - Matches any string that starts with @scheme["/*"] and and ends with + Matches any string that starts with @scheme["/*"] and ends with @scheme["*/"], including @scheme["/* */ */ */"]. @scheme[(complement "*/")] matches any string except @scheme["*/"]. This includes @scheme["*"] and @scheme["/"] separately. Thus diff --git a/collects/redex/private/compiler/match.rkt b/collects/redex/private/compiler/match.rkt index fc75214b05..8d6d96a3b9 100644 --- a/collects/redex/private/compiler/match.rkt +++ b/collects/redex/private/compiler/match.rkt @@ -1740,7 +1740,7 @@ - ; if a one-rowed matrix is the the result, assume that the matching isn't over and just update the eqs + ; if a one-rowed matrix is the result, assume that the matching isn't over and just update the eqs #;((Build-Term-Let (eqs ...) (matrix (x_1 ...) (((p_1 ... -> r) eqs_2 ...)) (pvar_1 ...) (pvar_2 ...) natural bool)) (matrix (x_1 ...) (((p_1 ... -> r) eqs ...)) (pvar_1 ...) (pvar_2 ...) natural bool)) diff --git a/collects/scribblings/framework/splash.scrbl b/collects/scribblings/framework/splash.scrbl index 3c15fe8a8a..e9dc332818 100644 --- a/collects/scribblings/framework/splash.scrbl +++ b/collects/scribblings/framework/splash.scrbl @@ -32,7 +32,7 @@ that number to control the gauge along the bottom of the splash screen. The @racket[draw-spec] determines what the splash window contains. The @racket[splash-title] is used as the title of the window and the @racket[width-default] determines - how many progress steps the gauge in the the splash screen should + how many progress steps the gauge in the splash screen should contain if there is no preference saved for the splash screen width. The splash library uses @racket[get-preference] and @racket[put-preferences] to store preferences, using diff --git a/collects/scribblings/raco/make.scrbl b/collects/scribblings/raco/make.scrbl index cdbe3ee883..0c226af111 100644 --- a/collects/scribblings/raco/make.scrbl +++ b/collects/scribblings/raco/make.scrbl @@ -338,7 +338,7 @@ source in an namespace that iniitially imports @racketmodname[scheme]. Outside of a module, top-level @racket[define-syntaxes], @racket[module], @racket[#%require], -@racket[define-values-for-syntax], and and @racket[begin] expressions +@racket[define-values-for-syntax], and @racket[begin] expressions are handled specially by @exec{raco make --no-deps}: the compile-time portion of the expression is evaluated, because it might affect later expressions. diff --git a/collects/scribblings/reference/exns.scrbl b/collects/scribblings/reference/exns.scrbl index 88a71e739b..fec47f349e 100644 --- a/collects/scribblings/reference/exns.scrbl +++ b/collects/scribblings/reference/exns.scrbl @@ -291,7 +291,7 @@ fails.} @defform[(with-handlers ([pred-expr handler-expr] ...) body ...+)]{ -Evaluates each @racket[pred-expr] and and @racket[handler-expr] in the +Evaluates each @racket[pred-expr] and @racket[handler-expr] in the order that they are specified, and then evaluates the @racket[body]s with a new exception handler during the its dynamic extent. diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl index 5c7b6893db..28abda429d 100644 --- a/collects/scribblings/reference/pairs.scrbl +++ b/collects/scribblings/reference/pairs.scrbl @@ -979,7 +979,7 @@ instead, parts of @scheme[v] are copied as necessary to construct the resulting graph, where at most one copy is created for any given value. -Since the copied vales can be immutable, and since the copy is also +Since the copied values can be immutable, and since the copy is also immutable, @scheme[make-reader-graph] can create cycles involving only immutable pairs, vectors, boxes, and hash tables. diff --git a/collects/scribblings/reference/unsafe.scrbl b/collects/scribblings/reference/unsafe.scrbl index 3125d4c37b..c7bb9566cd 100644 --- a/collects/scribblings/reference/unsafe.scrbl +++ b/collects/scribblings/reference/unsafe.scrbl @@ -71,7 +71,7 @@ the result is always a @tech{fixnum}. The @scheme[unsafe-fxlshift] and @scheme[unsafe-fxrshift] is a negative (i.e., right) shift, where the number of bits to shift must be less than the number of bits used to represent a @tech{fixnum}. In the case of @scheme[unsafe-fxlshift], -bits in the result beyond the the number of bits used to represent a +bits in the result beyond the number of bits used to represent a @tech{fixnum} are effectively replaced with a copy of the high bit.} diff --git a/collects/syntax/scribblings/parse/debug.scrbl b/collects/syntax/scribblings/parse/debug.scrbl index ecaa44f8f6..b3270aebc4 100644 --- a/collects/syntax/scribblings/parse/debug.scrbl +++ b/collects/syntax/scribblings/parse/debug.scrbl @@ -40,7 +40,7 @@ the result is some internal representation of the failure. #:contracts ([stx-expr syntax?])]{ Tries to match @scheme[stx-expr] against the @scheme[S-pattern]s. If -matching succeeds, the the symbol @scheme['success] is +matching succeeds, the symbol @scheme['success] is returned. Otherwise, an S-expression describing the failure is returned. The failure S-expression shows both the raw set of failures (unsorted) diff --git a/collects/teachpack/2htdp/scribblings/universe.scrbl b/collects/teachpack/2htdp/scribblings/universe.scrbl index 637c8eed78..c7b372eff4 100644 --- a/collects/teachpack/2htdp/scribblings/universe.scrbl +++ b/collects/teachpack/2htdp/scribblings/universe.scrbl @@ -378,12 +378,12 @@ All @tech{MouseEvent}s are represented via strings: integer? integer? (unsyntax @tech{MouseEvent}) (unsyntax @tech{WorldState}))])]{ tells DrRacket to call @scheme[mouse-expr] on the current world, the current - @scheme[x] and @scheme[y] coordinates of the mouse, and and a + @scheme[x] and @scheme[y] coordinates of the mouse, and a @tech{MouseEvent} for every (noticeable) action of the mouse by the computer user. The result of the call becomes the current world. For @scheme["leave"] and @scheme["enter"] events, the coordinates of the - mouse click may be outside of the (implicitly) rectangle. That is, the + mouse click may be outside of the (implicit) rectangle. That is, the coordinates may be negative or larger than the (implicitly) specified width and height. diff --git a/collects/teachpack/htdp/scribblings/world.scrbl b/collects/teachpack/htdp/scribblings/world.scrbl index 9a9542b72f..aec7894c19 100644 --- a/collects/teachpack/htdp/scribblings/world.scrbl +++ b/collects/teachpack/htdp/scribblings/world.scrbl @@ -162,7 +162,7 @@ A @tech{KeyEvent} represents key board events, e.g., keys pressed or @defproc[(on-mouse-event [clack (-> (unsyntax @tech{World}) natural-number/c natural-number/c (unsyntax @tech{MouseEvent}) (unsyntax @tech{World}))]) true]{ Tell DrRacket to call @scheme[clack] on the current world, the current - @scheme[x] and @scheme[y] coordinates of the mouse, and and a + @scheme[x] and @scheme[y] coordinates of the mouse, and a @tech{MouseEvent} for every action of the mouse by the user of the computer. The result of the call becomes the current world.} diff --git a/collects/test-engine/test-info.scm b/collects/test-engine/test-info.scm index 2018a3c8e6..7b61404f99 100644 --- a/collects/test-engine/test-info.scm +++ b/collects/test-engine/test-info.scm @@ -149,6 +149,6 @@ arguments)) (result-arguments-list (property-fail-result fail)))] [(property-error? fail) - (print "check-property encountered the the following error\n:: ~a" + (print "check-property encountered the following error\n:: ~a" (property-error-message fail))]) (print-string "\n"))) diff --git a/collects/tests/racket/object.rktl b/collects/tests/racket/object.rktl index ce63778325..8c4486f878 100644 --- a/collects/tests/racket/object.rktl +++ b/collects/tests/racket/object.rktl @@ -708,7 +708,7 @@ ;; ------------------------------------------------------------ ;; ...-final clauses. -;; Internal calls to public-final and and pubment are direct, +;; Internal calls to public-final and pubment are direct, ;; but other calls must be indirect. (let () diff --git a/collects/web-server/scribblings/formlets.scrbl b/collects/web-server/scribblings/formlets.scrbl index 13702a06a3..b3825d39e9 100755 --- a/collects/web-server/scribblings/formlets.scrbl +++ b/collects/web-server/scribblings/formlets.scrbl @@ -139,7 +139,7 @@ to be @emph{syntactically} an @|xexpr|. You may discover you want to use a more @defform[(formlet* rendering-expr yields-expr)]{ Constructs a @tech{formlet} where @racket[rendering-expr] is evaluated (with caveats) to construct the rendering - and the processing result is the evaluation of the the @racket[yields-expr] expression. + and the processing result is the evaluation of the @racket[yields-expr] expression. The @racket[rendering-expr] should evaluate to an "@xexpr" that may embed the results of the following forms that only have meaning within @racket[formlet*]: