diff --git a/collects/combinator-parser/private-combinator/combinator-parser.scm b/collects/combinator-parser/private-combinator/combinator-parser.scm index 02200db11d..9f21231d5b 100644 --- a/collects/combinator-parser/private-combinator/combinator-parser.scm +++ b/collects/combinator-parser/private-combinator/combinator-parser.scm @@ -153,7 +153,7 @@ (choice-res-errors result)) (fail-type->message (choice-res-errors result)) (make-err - (format "Found additional content after ~a, begining with '~a'." + (format "Found additional content after ~a, beginning with '~a'." (res-msg (car used-sort)) (input->output-name (car (res-rest (car used-sort))))) (and src? @@ -166,7 +166,7 @@ [(and (repeat-res? result) (fail-type? (repeat-res-stop result))) ;(printf "repeat-fail~n") (fail-type->message (repeat-res-stop result))] - [else (error 'parser (format "Internal error: recieved unexpected input ~a" + [else (error 'parser (format "Internal error: received unexpected input ~a" result))])]) (cond [(err? out) diff --git a/collects/combinator-parser/private-combinator/errors.scm b/collects/combinator-parser/private-combinator/errors.scm index e5c6da9445..3bfe85507f 100644 --- a/collects/combinator-parser/private-combinator/errors.scm +++ b/collects/combinator-parser/private-combinator/errors.scm @@ -288,7 +288,7 @@ [(null? (cdr l)) (string-append "or " (car l))] [else (string-append (car l) ", " (formatter (cdr l)))]))]) (cond - [(null? l) (error 'internal-error "nice-list in combinator-parser/errors.scm recieved null list")] + [(null? l) (error 'internal-error "nice-list in combinator-parser/errors.scm received null list")] [(null? (cdr l)) (car l)] [(null? (cddr l)) (string-append (car l) " or " (cadr l))] [else (formatter l)]))) diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.ss index 10a7b79eae..fe8f5f7d39 100644 --- a/collects/compiler/private/xform.ss +++ b/collects/compiler/private/xform.ss @@ -3272,7 +3272,7 @@ (define (convert-function-calls e vars &-vars c++-class live-vars complain-not-in memcpy? braces-are-aggregates?) ;; e is a single statement ;; Reverse to calculate live vars as we go. - ;; Also, it's easier to look for parens and then inspect preceeding + ;; Also, it's easier to look for parens and then inspect preceding ;; to find function calls. ;; complain-not-in is ither #f [function calls are ok], a string [not ok, string describes way], ;; or (list ok-exprs ...)) [in a rator position, only ok-expr calls are allowed, @@ -3608,7 +3608,7 @@ (not (null? (cdr assignee))) ;; ok if name starts with "_stk_" (not (regexp-match re:_stk_ (symbol->string (tok-n (car assignee))))) - ;; ok if preceeding is else or label terminator + ;; ok if preceding is else or label terminator (not (memq (tok-n (cadr assignee)) '(else |:|))) ;; assignment to field in record is ok (not (and (eq? (tok-n (cadr assignee)) '|.|) @@ -3617,7 +3617,7 @@ (null? (cdddr assignee)))) ;; ok if preceded by XFORM_OK_ASSIGN (not (eq? (tok-n (cadr assignee)) 'XFORM_OK_ASSIGN)) - ;; ok if preceeding is `if', `until', etc. + ;; ok if preceding is `if', `until', etc. (not (and (parens? (cadr assignee)) (pair? (cddr assignee)) (memq (tok-n (caddr assignee)) '(if while for until)))))) diff --git a/collects/ffi/objc.scrbl b/collects/ffi/objc.scrbl index d5daa229e1..7678699d73 100644 --- a/collects/ffi/objc.scrbl +++ b/collects/ffi/objc.scrbl @@ -236,7 +236,7 @@ Returns the class of an object (or the meta-class of a class).} boolean?]{ Adds a method to a class. The @scheme[type] argument must be a FFI C -type (@seeCtype) that matches both @scheme[imp] and and the not +type (@seeCtype) that matches both @scheme[imp] and the not Objective-C type string @scheme[type-encoding].} @defproc[(class_addIvar [cls _Class] [name string?] [size exact-nonnegative-integer?] diff --git a/collects/ffi/sndfile.ss b/collects/ffi/sndfile.ss index a3dd4358c7..2ccaf9f5e9 100644 --- a/collects/ffi/sndfile.ss +++ b/collects/ffi/sndfile.ss @@ -23,7 +23,7 @@ (error '_sndfile "got a NULL pointer (bad info?)"))))) ;; sf_count_t is a count type that depends on the operating system however it -;; seems to be a long int for all teh supported ones so in this scase we just +;; seems to be a long int for all the supported ones so in this scase we just ;; define it as two ints. (define _sf-count-t _int64) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index e6facf4935..154af717ea 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -543,7 +543,7 @@ ;; this flag is specific to this frame ;; the true state of the info panel is ;; the combination of this flag and the - ;; the 'framework:show-status-line preference + ;; 'framework:show-status-line preference ;; as shown in update-info-visibility (define info-hidden? #f) (define/public (hide-info) diff --git a/collects/games/parcheesi/best-players.ss b/collects/games/parcheesi/best-players.ss index aa74a87a8b..6110fd3c92 100644 --- a/collects/games/parcheesi/best-players.ss +++ b/collects/games/parcheesi/best-players.ss @@ -316,7 +316,7 @@ careful charlie [(eq? their-loc 'start) (let ([their-enter-spot (get-enter-pos (pawn-color pawn))]) ;; this code assumes that the enter-pos's are not within 6 of - ;; where the board indicies wrap around. + ;; where the board indices wrap around. (cond [(= my-loc their-enter-spot) (add-single-roll-chances 5) diff --git a/collects/games/slidey/slidey.ss b/collects/games/slidey/slidey.ss index 07888d3b23..5e28f5ffb7 100644 --- a/collects/games/slidey/slidey.ss +++ b/collects/games/slidey/slidey.ss @@ -252,10 +252,10 @@ (define/private (draw-cell draw-i draw-j) (let-values ([(xd yd wd hd) (ij->xywh draw-i draw-j)]) (let* ([dc (get-dc)] - [indicies (board-ref board draw-i draw-j)]) - (if indicies - (let ([bm-i (loc-x indicies)] - [bm-j (loc-y indicies)]) + [indices (board-ref board draw-i draw-j)]) + (if indices + (let ([bm-i (loc-x indices)] + [bm-j (loc-y indices)]) (let-values ([(xs ys ws hs) (ij->xywh bm-i bm-j)]) (send dc set-pen pict-pen) (send dc set-brush pict-brush) diff --git a/collects/handin-server/scribblings/checker.scrbl b/collects/handin-server/scribblings/checker.scrbl index 54bc9d8b86..e191ae13dc 100644 --- a/collects/handin-server/scribblings/checker.scrbl +++ b/collects/handin-server/scribblings/checker.scrbl @@ -152,7 +152,7 @@ Keywords for configuring @scheme[check:]: @item{@indexed-scheme[:student-line]---when a submission is converted to text, it begins with lines describing the students that have submitted it; this is used to specify the format of these lines. It - is a string with holes that that @scheme[user-substs] fills out. + is a string with holes that @scheme[user-substs] fills out. The default is @scheme["Student: {username} ({Full Name} <{Email}>)"], which requires @scheme["Full Name"] and @scheme["Email"] entries in the server's extra-fields configuration. These lines are prefixed diff --git a/collects/meta/checker.ss b/collects/meta/checker.ss index f5bf56c1c2..e9e61f9f4d 100644 --- a/collects/meta/checker.ss +++ b/collects/meta/checker.ss @@ -190,7 +190,7 @@ (provide tree-filter) ;; (string -> any) tree -> tree -;; If the filter returns '+ or '- this qualifies or disqualifies the the +;; If the filter returns '+ or '- this qualifies or disqualifies the ;; current tree immediately, otherwise recurse down directories. If any other ;; result is returned for directories scanning continues, and for files they ;; are included if the result is not #f. diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss index f5a45d4529..3c07bc7a5d 100644 --- a/collects/mred/private/wxme/text.ss +++ b/collects/mred/private/wxme/text.ss @@ -1519,7 +1519,7 @@ (if (and gsnip (has-flag? (snip->flags gsnip) HARD-NEWLINE) (eq? (snip->next gsnip) snip)) - ;; preceeding snip was a newline, so the new slip belongs on the next line: + ;; preceding snip was a newline, so the new slip belongs on the next line: (let* ([oldline (snip->line gsnip)] [inserted-new-line? (if (mline-next oldline) @@ -4188,7 +4188,7 @@ (has-flag? (snip->flags gsnip) NEWLINE) (not (has-flag? (snip->flags gsnip) HARD-NEWLINE))) (begin - ;; we want the snip on the same line as the preceeding snip: + ;; we want the snip on the same line as the preceding snip: (if (snip->next gsnip) (insert-snip (snip->next gsnip) snip) (append-snip snip)) diff --git a/collects/mrlib/image-core.ss b/collects/mrlib/image-core.ss index 51444167b6..ef6dc81232 100644 --- a/collects/mrlib/image-core.ss +++ b/collects/mrlib/image-core.ss @@ -9,7 +9,7 @@ work right. Most of the exports are just for use in 2htdp/image (technically, 2htdp/private/image-more). The main use of this library is the snip class addition it -does (and any code that that does not depend on +does (and any code that does not depend on has been moved out). diff --git a/collects/mrlib/matrix-snip.ss b/collects/mrlib/matrix-snip.ss index ff6d5bd4ea..1a82069945 100644 --- a/collects/mrlib/matrix-snip.ss +++ b/collects/mrlib/matrix-snip.ss @@ -64,7 +64,7 @@ (super-new) (set-snipclass matrix-snip-class))) -;; the snip class for matricies +;; the snip class for matrices (define matrix-snip-class% (class cache-image-snip-class% (super-new) diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.ss index 9d4d9800e8..377f975b89 100644 --- a/collects/mzlib/private/contract-arr-obj-helpers.ss +++ b/collects/mzlib/private/contract-arr-obj-helpers.ss @@ -350,7 +350,7 @@ (with-syntax ([(dom-x ...) (generate-temporaries (syntax (dom ...)))] [(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))] [(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))] - [(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))] + [(dom-length dom-index ...) (generate-indices (syntax (dom ...)))] [(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))] [(arg-x ...) (generate-temporaries (syntax (dom ...)))]) (with-syntax ([(name-dom-contract-x ...) @@ -393,7 +393,7 @@ (with-syntax ([(rng-x ...) (generate-temporaries (syntax (rng ...)))] [(rng-contract-x ...) (generate-temporaries (syntax (rng ...)))] [(rng-projection-x ...) (generate-temporaries (syntax (rng ...)))] - [(rng-length rng-index ...) (generate-indicies (syntax (rng ...)))] + [(rng-length rng-index ...) (generate-indices (syntax (rng ...)))] [(rng-ant-x ...) (generate-temporaries (syntax (rng ...)))] [(res-x ...) (generate-temporaries (syntax (rng ...)))]) (values @@ -493,7 +493,7 @@ [(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))] [(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))] [(arg-x ...) (generate-temporaries (syntax (dom ...)))] - [(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))] + [(dom-length dom-index ...) (generate-indices (syntax (dom ...)))] [(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))] [dom-rest-x (car (generate-temporaries (list (syntax rest))))] [dom-rest-contract-x (car (generate-temporaries (list (syntax rest))))] @@ -503,7 +503,7 @@ [(rng-x ...) (generate-temporaries (syntax (rng ...)))] [(rng-contract-x ...) (generate-temporaries (syntax (rng ...)))] [(rng-projection-x ...) (generate-temporaries (syntax (rng ...)))] - [(rng-length rng-index ...) (generate-indicies (syntax (rng ...)))] + [(rng-length rng-index ...) (generate-indices (syntax (rng ...)))] [(rng-ant-x ...) (generate-temporaries (syntax (rng ...)))] [(res-x ...) (generate-temporaries (syntax (rng ...)))] [arity (length (syntax->list (syntax (dom ...))))]) @@ -566,7 +566,7 @@ [(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))] [(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))] [(arg-x ...) (generate-temporaries (syntax (dom ...)))] - [(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))] + [(dom-length dom-index ...) (generate-indices (syntax (dom ...)))] [(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))] [dom-rest-x (car (generate-temporaries (list (syntax rest))))] [dom-rest-contract-x (car (generate-temporaries (list (syntax rest))))] @@ -688,7 +688,7 @@ (with-syntax ([(dom-x ...) (generate-temporaries (syntax (dom ...)))] [(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))] [(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))] - [(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))] + [(dom-length dom-index ...) (generate-indices (syntax (dom ...)))] [(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))] [(arg-x ...) (generate-temporaries (syntax (dom ...)))]) (values @@ -1126,10 +1126,10 @@ (syntax (let ([name rhs]) name)))] [else to-be-named]))) -;; generate-indicies : syntax[list] -> (cons number (listof number)) +;; generate-indices : syntax[list] -> (cons number (listof number)) ;; given a syntax list of length `n', returns a list containing ;; the number n followed by th numbers from 0 to n-1 -(define (generate-indicies stx) +(define (generate-indices stx) (let ([n (length (syntax->list stx))]) (cons n (let loop ([i n]) diff --git a/collects/plot/src/all/plcont.c b/collects/plot/src/all/plcont.c index d94d2da2d7..e05846c021 100644 --- a/collects/plot/src/all/plcont.c +++ b/collects/plot/src/all/plcont.c @@ -469,7 +469,7 @@ c_plcont(PLFLT **f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, * The subrange of indices used for contouring is kx to lx in the x * direction and from ky to ly in the y direction. The array of contour * levels is clevel(nlevel), and "pltr" is the name of a function which - * transforms array indicies into world coordinates. + * transforms array indices into world coordinates. * * Note that the fortran-like minimum and maximum indices (kx, lx, ky, ly) * are translated into more C-like ones. I've only kept them as they are diff --git a/collects/r6rs/scribblings/r6rs.scrbl b/collects/r6rs/scribblings/r6rs.scrbl index c663abb531..ffccce56b2 100644 --- a/collects/r6rs/scribblings/r6rs.scrbl +++ b/collects/r6rs/scribblings/r6rs.scrbl @@ -216,7 +216,7 @@ a version as a sequence of exact, non-negative integers. Roughly, such a name is converted to a PLT Scheme module pathname (see @secref[#:doc guide-src "module-paths"]) by concatenating the symbols with a @litchar{/} separator, and then appending the version integers each -with a preceeding @litchar{-}. As a special case, when an @|r6rs| path +with a preceding @litchar{-}. As a special case, when an @|r6rs| path contains a single symbol (optionally followed by a version), a @schemeidfont{main} symbol is effectively inserted after the initial symbol. See below for further encoding considerations. diff --git a/collects/redex/tests/bitmap-test.ss b/collects/redex/tests/bitmap-test.ss index 5b2bf981d7..9bc12d9697 100644 --- a/collects/redex/tests/bitmap-test.ss +++ b/collects/redex/tests/bitmap-test.ss @@ -71,7 +71,7 @@ ;; and a 'where' in the second clause (test (render-metafunction T) "metafunction-T.png") -;; in this test, teh `x' is italic and the 'z' is sf, since 'x' is in the grammar, and 'z' is not. +;; in this test, the `x' is italic and the 'z' is sf, since 'x' is in the grammar, and 'z' is not. (test (render-lw lang (to-lw ((λ (x) (x x)) diff --git a/collects/scheme/contract/private/ds.ss b/collects/scheme/contract/private/ds.ss index 6568e52499..73f9bf424f 100644 --- a/collects/scheme/contract/private/ds.ss +++ b/collects/scheme/contract/private/ds.ss @@ -76,8 +76,8 @@ it around flattened out. [struct-maker struct-maker/val] [predicate predicate/val] [contract-name (add-suffix "-contract")] - [(selector-indicies ...) (nums-up-to field-count/val)] - [(selector-indicies+1 ...) (map add1 (nums-up-to field-count/val))] + [(selector-indices ...) (nums-up-to field-count/val)] + [(selector-indices+1 ...) (map add1 (nums-up-to field-count/val))] [(ctc-x ...) (generate-temporaries (syntax (fields ...)))] [(f-x ...) f-x/vals] [((f-xs ...) ...) f-xs/vals] @@ -113,7 +113,7 @@ it around flattened out. (lambda (k v) (when (unknown? v) (let ([proc (unknown-proc v)]) - (let ([new (proc (wrap-get stct selector-indicies+1) ...)]) + (let ([new (proc (wrap-get stct selector-indices+1) ...)]) (cond [(unknown? new) (set! any-unknown? #t)] @@ -177,7 +177,7 @@ it around flattened out. (cond [(raw-predicate stct) ;; found the original value - (values #f (get stct selector-indicies) ...)] + (values #f (get stct selector-indices) ...)] [(opt-wrap-predicate stct) (let ((inner (opt-wrap-get stct 0))) @@ -187,11 +187,11 @@ it around flattened out. (let-values ([(inner-stct fields ...) (loop inner)]) (let-values ([(fields ...) (enforcer stct fields ...)]) (opt-wrap-set stct 0 #f) - (opt-wrap-set stct selector-indicies+1 fields) ... + (opt-wrap-set stct selector-indices+1 fields) ... (values stct fields ...)))) ;; found a cached version - (values #f (opt-wrap-get stct selector-indicies+1) ...)))] + (values #f (opt-wrap-get stct selector-indices+1) ...)))] [(wrap-predicate stct) (let ([inner (wrap-get stct 0)]) (if inner @@ -201,19 +201,19 @@ it around flattened out. (let-values ([(fields ...) (rewrite-fields stct contract/info fields ...)]) (wrap-set stct 0 #f) - (wrap-set stct selector-indicies+1 fields) ... + (wrap-set stct selector-indices+1 fields) ... (evaluate-attrs stct contract/info) (values stct fields ...)))) ;; found a cached version of the value - (values #f (wrap-get stct selector-indicies+1) ...)))]))]) + (values #f (wrap-get stct selector-indices+1) ...)))]))]) (cond [(opt-wrap-predicate stct) (opt-wrap-get stct i+1)] [(wrap-predicate stct) (wrap-get stct i+1)]))) (define (rewrite-fields parent contract/info ctc-x ...) (let* ([f-x (let* ([ctc-field (contract-get (contract/info-contract contract/info) - selector-indicies)] + selector-indices)] [ctc (if (procedure? ctc-field) (ctc-field f-xs ...) ctc-field)] @@ -232,8 +232,8 @@ it around flattened out. (define (stronger-lazy-contract? a b) (and (contract-predicate b) (check-sub-contract? - (contract-get a selector-indicies) - (contract-get b selector-indicies)) ...)) + (contract-get a selector-indices) + (contract-get b selector-indices)) ...)) (define (lazy-contract-proj ctc) (λ (pos-blame neg-blame src-info orig-str positive-position?) @@ -286,7 +286,7 @@ it around flattened out. (contract-maker ctc-x ... #f))) (define (selectors x) - (burrow-in x 'selectors selector-indicies)) ... + (burrow-in x 'selectors selector-indices)) ... (define (burrow-in struct selector-name i) (cond @@ -306,7 +306,7 @@ it around flattened out. (define (lazy-contract-name ctc) (do-contract-name 'struct/c 'struct/dc - (list (contract-get ctc selector-indicies) ...) + (list (contract-get ctc selector-indices) ...) '(fields ...) (contract-get ctc field-count))) @@ -315,7 +315,7 @@ it around flattened out. #f (+ field-count 1) ;; extra field is for synthesized attribute ctcs ;; it is a list whose first element is - ;; a procedure (called once teh attrs are known) that + ;; a procedure (called once the attrs are known) that ;; indicates if the test passes. the rest of the elements are ;; procedures that build the attrs ;; this field is #f when there is no synthesized attrs diff --git a/collects/scheme/match/split-rows.ss b/collects/scheme/match/split-rows.ss index ebaba107d9..c2cb4ce992 100644 --- a/collects/scheme/match/split-rows.ss +++ b/collects/scheme/match/split-rows.ss @@ -5,7 +5,7 @@ (provide split-rows) ;; split-rows : Listof[Row] -> Listof[Listof[Row]] -;; takes a matrix, and returns a list of matricies +;; takes a matrix, and returns a list of matrices ;; each returned matrix does not require the mixture rule to do compilation of ;; the first column. (define (split-rows rows [acc null]) diff --git a/collects/scheme/private/string.ss b/collects/scheme/private/string.ss index f1de9e5c71..789b4f9b56 100644 --- a/collects/scheme/private/string.ss +++ b/collects/scheme/private/string.ss @@ -98,7 +98,7 @@ (let ([s (read-bytes drop input-port)]) (when out (display s out))) - ;; Get the matching part, and shift matching indicies + ;; Get the matching part, and shift matching indices (let ([s (read-bytes (- (cdar m) drop) input-port)]) (cons s (map (lambda (p) diff --git a/collects/scribblings/guide/contracts-simple-function.scrbl b/collects/scribblings/guide/contracts-simple-function.scrbl index 437f38647e..23e8381d0b 100644 --- a/collects/scribblings/guide/contracts-simple-function.scrbl +++ b/collects/scribblings/guide/contracts-simple-function.scrbl @@ -285,7 +285,7 @@ and thus used as a contract. But many other values also play double duty as contracts. For example, if your function accepts a number or @scheme[#f], -@scheme[(or/c number? #f)] sufficies. Similarly, the @scheme[result/c] contract +@scheme[(or/c number? #f)] suffices. Similarly, the @scheme[result/c] contract could have been written with a @scheme[0] in place of @scheme[zero?]. Even better, if you use a regular expression as a contract, the contract diff --git a/collects/scribblings/reference/eval-model.scrbl b/collects/scribblings/reference/eval-model.scrbl index e65caaf16b..2413479573 100644 --- a/collects/scribblings/reference/eval-model.scrbl +++ b/collects/scribblings/reference/eval-model.scrbl @@ -470,7 +470,7 @@ form is evaluated: 3] ] -The substition and @tech{location}-generation step of procedure +The substitution and @tech{location}-generation step of procedure application requires that the argument is a @tech{value}. Therefore, in @scheme[((lambda (x) (+ x 10)) (+ 1 2))], the @scheme[(+ 1 2)] sub-expression must be simplified to the @tech{value} @scheme[3], and diff --git a/collects/scribblings/reference/evts.scrbl b/collects/scribblings/reference/evts.scrbl index b423652918..590309821d 100644 --- a/collects/scribblings/reference/evts.scrbl +++ b/collects/scribblings/reference/evts.scrbl @@ -111,7 +111,7 @@ types can generate events (see @scheme[prop:evt]). @item{@scheme[_choice] --- an event returned by @scheme[choice-evt] is ready when one or more of the @scheme[_evt]s supplied to - @scheme[chocie-evt] are ready. If the choice event is chosen, one of + @scheme[choice-evt] are ready. If the choice event is chosen, one of its ready @scheme[_evt]s is chosen pseudo-randomly, and the result is the chosen @scheme[_evt]'s result.} diff --git a/collects/scribblings/reference/rx.ss b/collects/scribblings/reference/rx.ss index b4894db403..57302e8fe9 100644 --- a/collects/scribblings/reference/rx.ss +++ b/collects/scribblings/reference/rx.ss @@ -59,8 +59,8 @@ Lrange ::= ^ Lrange contains _^_ | Srange Lrange contains everything in Srange #co Look ::= (?=Regexp) Match if Regexp matches #mode | (?!Regexp) Match if Regexp doesn't match #mode - | (?<=Regexp) Match if Regexp matches preceeding #mode - | (? template portion is a vector, ;; contents like the list in map -;; - (box map) => template portion is a box with substition +;; - (box map) => template portion is a box with substitution ;; - #s(ellipses elem count map) => template portion is an ellipses-generated list ;; - #s(ellipses-quote map) => template has a quoting ellipses ;; - #s(prefab v map) => template portion is a prefab diff --git a/collects/teachpack/2htdp/scribblings/image.scrbl b/collects/teachpack/2htdp/scribblings/image.scrbl index 4a40b50c49..3987ae00d8 100644 --- a/collects/teachpack/2htdp/scribblings/image.scrbl +++ b/collects/teachpack/2htdp/scribblings/image.scrbl @@ -237,7 +237,7 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ Constructs an arbitrary regular star polygon (a generalization of the regular polygons). The polygon is enclosed by a regular polygon with @scheme[side-count] sides each @scheme[side-length] long. The polygon is actually constructed by going from vertex to - vertex around the regular polgon, but skipping over every @scheme[step-count] verticies. + vertex around the regular polgon, but skipping over every @scheme[step-count] vertices. For examples, if @scheme[side-count] is @scheme[5] and @scheme[step-count] is @scheme[2], then this function produces a shape just like @scheme[star]. @@ -250,15 +250,15 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ } -@defproc*[([(polygon [verticies (listof posn?)] +@defproc*[([(polygon [vertices (listof posn?)] [mode mode?] [color image-color?]) image?] - [(polygon [verticies (listof posn?)] + [(polygon [vertices (listof posn?)] [outline-mode (or/c 'outline "outline")] [pen-or-color (or/c pen? image-color?)]) image?])]{ - Constructs a polygon connecting the given verticies. + Constructs a polygon connecting the given vertices. @mode/color-text diff --git a/collects/tests/drscheme/repl-test.ss b/collects/tests/drscheme/repl-test.ss index d86a2949af..874ddeed0e 100644 --- a/collects/tests/drscheme/repl-test.ss +++ b/collects/tests/drscheme/repl-test.ss @@ -1133,7 +1133,7 @@ tmp-load-filename ; given a filename "foo", we perform two operations on the contents ; of the file "foo.ss". First, we insert its contents into the REPL ; directly, and second, we use the load command. We compare the - ; the results of these operations against expected results. + ; results of these operations against expected results. (define ((run-single-test execute-text-start escape language-cust) in-vector) ;(printf "\n>> testing ~s\n" (test-program in-vector)) (let* ([program (test-program in-vector)] diff --git a/collects/tests/mzscheme/benchmarks/common/graphs.sch b/collects/tests/mzscheme/benchmarks/common/graphs.sch index bd846f4075..791aadcbff 100644 --- a/collects/tests/mzscheme/benchmarks/common/graphs.sch +++ b/collects/tests/mzscheme/benchmarks/common/graphs.sch @@ -55,7 +55,7 @@ state)))) ; Given the size of a vector and a procedure which -; sends indicies to desired vector elements, create +; sends indices to desired vector elements, create ; and return the vector. (define proc->vector (lambda (size f) @@ -278,7 +278,7 @@ ; vertex. Each entry is a bool indicating if the edge exists. ; The diagonal of the matrix is never examined. ; Make-minimal? returns a procedure which tests if a labelling -; of the verticies is such that the matrix is minimal. +; of the vertices is such that the matrix is minimal. ; If it is, then the procedure returns the result of folding over ; the elements of the automoriphism group. If not, it returns #f. ; The folding is done by calling folder via @@ -382,11 +382,11 @@ ; Fold over rooted directed graphs with bounded out-degree. -; Size is the number of verticies (including the root). Max-out is the +; Size is the number of vertices (including the root). Max-out is the ; maximum out-degree for any vertex. Folder is called via ; (folder edges state) ; where edges is a list of length size. The ith element of the list is -; a list of the verticies j for which there is an edge from i to j. +; a list of the vertices j for which there is an edge from i to j. ; The last vertex is the root. (define fold-over-rdg (lambda (size max-out folder state) @@ -622,7 +622,7 @@ ;;; ==== test input ==== -; Produces all directed graphs with N verticies, distinguished root, +; Produces all directed graphs with N vertices, distinguished root, ; and out-degree bounded by 2, upto isomorphism (there are 44). ;(define go diff --git a/collects/tests/mzscheme/benchmarks/shootout/regexmatch.ss b/collects/tests/mzscheme/benchmarks/shootout/regexmatch.ss index 94a22d9381..a8805fbe19 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/regexmatch.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/regexmatch.ss @@ -12,7 +12,7 @@ (module regexmatch mzscheme (define rx (string-append - "(?:^|[^0-9\\(])" ; (1) preceeding non-digit or bol + "(?:^|[^0-9\\(])" ; (1) preceding non-digit or bol "(" ; (2) area code "\\(([0-9][0-9][0-9])\\)" ; (3) is either 3 digits in parens "|" ; or @@ -22,7 +22,7 @@ "([0-9][0-9][0-9])" ; (5) exchange is 3 digits "[ -]" ; separator is either space or dash "([0-9][0-9][0-9][0-9])" ; (6) last 4 digits - "(?:[^0-9]|$)" ; must be followed by a non-digit + "(?:[^0-9]|$)" ; must be followed by a non-digit )) diff --git a/collects/typed-scheme/types/utils.ss b/collects/typed-scheme/types/utils.ss index 7545417592..85d4aa5b97 100644 --- a/collects/typed-scheme/types/utils.ss +++ b/collects/typed-scheme/types/utils.ss @@ -125,7 +125,7 @@ ;; substitute many variables ;; substitution = Listof[U List[Name,Type] List[Name,Listof[Type]]] -;; subst-all : substition Type -> Type +;; subst-all : substitution Type -> Type (define (subst-all s t) (for/fold ([t t]) ([e s]) (match e @@ -309,4 +309,4 @@ ;; a parameter for the current polymorphic structure being defined ;; to allow us to prevent non-regular datatypes -(define current-poly-struct (make-parameter #f)) \ No newline at end of file +(define current-poly-struct (make-parameter #f)) diff --git a/doc/release-notes/mred/HISTORY.txt b/doc/release-notes/mred/HISTORY.txt index b7cf89b6be..112dc6d5ea 100644 --- a/doc/release-notes/mred/HISTORY.txt +++ b/doc/release-notes/mred/HISTORY.txt @@ -1360,7 +1360,7 @@ System: is just the right height to display one line of text. inherits from mred:wrapping-canvas% mred:frame-title-canvas% - updates the title of the frame when it recieves focus + updates the title of the frame when it receives focus events. inherits from mred:wrapping-canvas% - all of the "connection maintenence" ie edits that know which canvses they are in, frames that know which canvas is the most recently diff --git a/src/mzscheme/gc/include/cord.h b/src/mzscheme/gc/include/cord.h index 926089e86f..9082cc984a 100644 --- a/src/mzscheme/gc/include/cord.h +++ b/src/mzscheme/gc/include/cord.h @@ -299,7 +299,7 @@ size_t CORD_rchr(CORD x, size_t i, int c); /* the correct buffer size. */ /* 4. Most of the conversions are implement through the native */ /* vsprintf. Hence they are usually no faster, and */ -/* idiosyncracies of the native printf are preserved. However, */ +/* idiosyncrasies of the native printf are preserved. However, */ /* CORD arguments to CORD_sprintf and CORD_vsprintf are NOT copied; */ /* the result shares the original structure. This may make them */ /* very efficient in some unusual applications. */ diff --git a/src/mzscheme/sgc/README b/src/mzscheme/sgc/README index ed1306af54..361e6085be 100644 --- a/src/mzscheme/sgc/README +++ b/src/mzscheme/sgc/README @@ -2,7 +2,7 @@ SenoraGC is a relatively portable conservative GC for a slightly cooperative environment. The collector is intended mainly for debugging and memory tracing, but -it can also act as a reasonbaly effecient, general-purpose, +it can also act as a reasonbaly efficient, general-purpose, conservative collector. The standard MzScheme build uses SGC for certain platforms where Boehm's GC hasn't been ported, yet (notably, OSKit and BeOS). diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c index 60e7d2c208..9b01a0f8de 100644 --- a/src/mzscheme/src/env.c +++ b/src/mzscheme/src/env.c @@ -3335,7 +3335,7 @@ static void register_transitive_use(Optimize_Info *info, int pos, int j) void scheme_env_make_closure_map(Optimize_Info *info, mzshort *_size, mzshort **_map) { /* A closure map lists the captured variables for a closure; the - indices are resolved two new indicies in the second phase of + indices are resolved two new indices in the second phase of compilation. */ Optimize_Info *frame; int i, j, pos = 0, lpos = 0, tu; diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c index 81fd269655..eb2ad06a5e 100644 --- a/src/mzscheme/src/file.c +++ b/src/mzscheme/src/file.c @@ -2643,7 +2643,7 @@ static Scheme_Object *do_build_path(int argc, Scheme_Object **argv, int idelta, /* Originally, it made sense to just perform build operations directly on string representations, because it was simple enough. Over the years, though, as we refined the path syntax for Windows - to deal with all of its idiosyncracies, this has gotten completely + to deal with all of its idiosyncrasies, this has gotten completely out of hand. */ { #define PN_BUF_LEN 256 diff --git a/src/mzscheme/src/schpriv.h b/src/mzscheme/src/schpriv.h index 0e67fe98cf..54487f5a2b 100644 --- a/src/mzscheme/src/schpriv.h +++ b/src/mzscheme/src/schpriv.h @@ -2832,7 +2832,7 @@ typedef struct Scheme_Module_Phase_Exports Scheme_Object *kernel_exclusion; /* we allow up to two exns, but they must be shadowed */ Scheme_Object *kernel_exclusion2; - Scheme_Hash_Table *ht; /* maps external names to array indicies; created lazily */ + Scheme_Hash_Table *ht; /* maps external names to array indices; created lazily */ } Scheme_Module_Phase_Exports; typedef struct Scheme_Module_Exports diff --git a/src/wxmac/src/mac/wx_gdi.cc b/src/wxmac/src/mac/wx_gdi.cc index 3710f5d76b..d7ab3904fd 100644 --- a/src/wxmac/src/mac/wx_gdi.cc +++ b/src/wxmac/src/mac/wx_gdi.cc @@ -606,7 +606,7 @@ wxCursor::wxCursor(wxBitmap *mask, wxBitmap *bm, int hotSpotX, int hotSpotY) } } - c = new WXGC_PTRS wxColour(); /* to recieve bit values */ + c = new WXGC_PTRS wxColour(); /* to receive bit values */ cMacCustomCursor = new WXGC_ATOMIC Cursor; diff --git a/src/wxmac/utils/image/src/wx_imgx.h b/src/wxmac/utils/image/src/wx_imgx.h index 289ed50cd5..7d5099edd8 100644 --- a/src/wxmac/utils/image/src/wx_imgx.h +++ b/src/wxmac/utils/image/src/wx_imgx.h @@ -401,7 +401,7 @@ typedef struct { byte *pic; /* image data */ #endif #endif -/* indicies into conv24MB */ +/* indices into conv24MB */ #define CONV24_8BIT 0 #define CONV24_24BIT 1 #define CONV24_SEP1 2 diff --git a/src/wxwindow/src/msw/wx_gdi.cxx b/src/wxwindow/src/msw/wx_gdi.cxx index 15762ca9b8..c9d0a9cb80 100644 --- a/src/wxwindow/src/msw/wx_gdi.cxx +++ b/src/wxwindow/src/msw/wx_gdi.cxx @@ -1377,7 +1377,7 @@ wxCursor::wxCursor(wxBitmap *bm, wxBitmap *mask, int hotSpotX, int hotSpotY) mask_dc = temp_mask_mdc; } - c = new wxColour(); /* to recieve bit values */ + c = new wxColour(); /* to receive bit values */ /* Windows wants cursor data in terms of an "and" bit array and "xor" bit array. */ diff --git a/src/wxxt/src/XWidgets/xwCommon.w b/src/wxxt/src/XWidgets/xwCommon.w index d7586244b9..bb9cf10486 100644 --- a/src/wxxt/src/XWidgets/xwCommon.w +++ b/src/wxxt/src/XWidgets/xwCommon.w @@ -222,7 +222,7 @@ to define them here. They will end up in the private(!) header file. @ A private variable is used to track the keyboard focus, but only while traversal is on. If |traversal_focus| is |True|, it means that -the widget has keyboard focus and that that focus is a result of +the widget has keyboard focus and that focus is a result of keyboard traversal. It also means that the widget's border is highlighted, although that is only visible if the |highlightThickness| is positive. diff --git a/src/wxxt/utils/image/src/wx_24to8.cc b/src/wxxt/utils/image/src/wx_24to8.cc index a6fa1f8952..1891aba5ae 100644 --- a/src/wxxt/utils/image/src/wx_24to8.cc +++ b/src/wxxt/utils/image/src/wx_24to8.cc @@ -886,7 +886,7 @@ int wxImage::QuickCheck(byte *pic24, int w, int h, int maxcol) finds more than 'maxcol' colors, it returns '0'. If it DOESN'T, it does the 24-to-8 conversion by simply sticking the colors it found into a colormap, and changing instances of a color in pic24 into colormap - indicies (in pic) */ + indices (in pic) */ unsigned long colors[256],col; int i, nc, low, high, mid; diff --git a/src/wxxt/utils/image/src/wx_imgx.h b/src/wxxt/utils/image/src/wx_imgx.h index c495d32c40..a01865d42b 100644 --- a/src/wxxt/utils/image/src/wx_imgx.h +++ b/src/wxxt/utils/image/src/wx_imgx.h @@ -382,7 +382,7 @@ typedef struct { byte *pic; /* image data */ #endif #endif -/* indicies into conv24MB */ +/* indices into conv24MB */ #define CONV24_8BIT 0 #define CONV24_24BIT 1 #define CONV24_SEP1 2