diff --git a/collects/db/private/sqlite3/connection.rkt b/collects/db/private/sqlite3/connection.rkt index 1fe6c9514e..69efc179b5 100644 --- a/collects/db/private/sqlite3/connection.rkt +++ b/collects/db/private/sqlite3/connection.rkt @@ -345,7 +345,7 @@ [,SQLITE_EMPTY . "database is empty"] [,SQLITE_SCHEMA . "database schema changed"] [,SQLITE_TOOBIG . "too much data for one row of a table"] - [,SQLITE_CONSTRAINT . "abort due to contraint violation"] + [,SQLITE_CONSTRAINT . "abort due to constraint violation"] [,SQLITE_MISMATCH . "data type mismatch"] [,SQLITE_MISUSE . "library used incorrectly"] [,SQLITE_NOLFS . "uses OS features not supported on host"] diff --git a/collects/db/private/sqlite3/ffi-constants.rkt b/collects/db/private/sqlite3/ffi-constants.rkt index 9e9e222ae2..b8bb776aa5 100644 --- a/collects/db/private/sqlite3/ffi-constants.rkt +++ b/collects/db/private/sqlite3/ffi-constants.rkt @@ -21,7 +21,7 @@ (define SQLITE_EMPTY 16 ) ; Database is empty */ (define SQLITE_SCHEMA 17 ) ; The database schema changed */ (define SQLITE_TOOBIG 18 ) ; Too much data for one row of a table */ -(define SQLITE_CONSTRAINT 19 ) ; Abort due to contraint violation */ +(define SQLITE_CONSTRAINT 19 ) ; Abort due to constraint violation */ (define SQLITE_MISMATCH 20 ) ; Data type mismatch */ (define SQLITE_MISUSE 21 ) ; Library used incorrectly */ (define SQLITE_NOLFS 22 ) ; Uses OS features not supported on host */ diff --git a/collects/drracket/private/multi-file-search.rkt b/collects/drracket/private/multi-file-search.rkt index 62f85b7104..386e5e1c7d 100644 --- a/collects/drracket/private/multi-file-search.rkt +++ b/collects/drracket/private/multi-file-search.rkt @@ -407,7 +407,7 @@ (define searcher #f) ;; initialized to a regexp if the user wants to filter filenames, - ;; during the ok-button-callback, so errors can be signalled. + ;; during the ok-button-callback, so errors can be signaled. (define filter #f) ;; title for message box that signals error messages diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt index 9b1d0b0afe..ab01dc0a73 100644 --- a/collects/drracket/private/syncheck/traversals.rkt +++ b/collects/drracket/private/syncheck/traversals.rkt @@ -864,15 +864,15 @@ ;; trim-require-prefix : syntax -> syntax (define (trim-require-prefix require-spec) (syntax-case* require-spec (only prefix all-except prefix-all-except rename just-meta) symbolic-compare? - [(only module-name identifer ...) + [(only module-name identifier ...) (syntax module-name)] - [(prefix identifier module-name) + [(prefix identifier module-name) (syntax module-name)] - [(all-except module-name identifer ...) + [(all-except module-name identifier ...) (syntax module-name)] - [(prefix-all-except module-name identifer ...) + [(prefix-all-except module-name identifier ...) (syntax module-name)] - [(rename module-name local-identifer exported-identifer) + [(rename module-name local-identifier exported-identifier) (syntax module-name)] [_ require-spec])) diff --git a/collects/drracket/tool-lib.rkt b/collects/drracket/tool-lib.rkt index d426667baa..b9e772b48a 100644 --- a/collects/drracket/tool-lib.rkt +++ b/collects/drracket/tool-lib.rkt @@ -1562,7 +1562,7 @@ all of the names in the tools library, for use defining keybindings The @racket[init-code] argument is an s-expression representing the code for a module. This module is expected to provide - the identifer @racket[init-code], bound to a procedure of no + the identifier @racket[init-code], bound to a procedure of no arguments. That module is required and the @racket[init-code] procedure is executed to initialize language-specific settings before the code in @racket[program-filename] runs. diff --git a/collects/handin-server/scribblings/checker.scrbl b/collects/handin-server/scribblings/checker.scrbl index 45f8614173..273394b36b 100644 --- a/collects/handin-server/scribblings/checker.scrbl +++ b/collects/handin-server/scribblings/checker.scrbl @@ -378,7 +378,7 @@ code.} @defform[(!eval expr)]{ - Evaluate an arbitrary expession in the submission context. This is + Evaluate an arbitrary expression in the submission context. This is a simple shorthand for @racket[((submission-eval) `expr)].} @defproc*[([(!all-covered) void?] diff --git a/collects/htdp/docs.rkt b/collects/htdp/docs.rkt index 46c9d76fca..00c81876e5 100644 --- a/collects/htdp/docs.rkt +++ b/collects/htdp/docs.rkt @@ -16,8 +16,8 @@ (define-primitive end-annotation? end-annotation?/proc) (define-primitive write-file write-file/proc) -;; mk-annotation : -;; (str number[str-lenght] -> bool) -> (any-value -> bool) +;; mk-annotation : +;; (str number[str-length] -> bool) -> (any-value -> bool) (define (mk-annotation test) (lambda (val) (and (symbol? val) diff --git a/collects/lang/private/beginner-funs.rkt b/collects/lang/private/beginner-funs.rkt index d9a9f8cc62..fe46d04bb2 100644 --- a/collects/lang/private/beginner-funs.rkt +++ b/collects/lang/private/beginner-funs.rkt @@ -473,7 +473,7 @@ ("Misc" (identity (any -> any) "Returns the argument unchanged.") - ((beginner-error error) (any ... -> void) "signals an error, combining the given values into an error message.\n\nIf any of the values' printed representations is too long, it is truncated and ``...'' is put into the string. If the first value is a symbol, it is treated specially; it is suffixed with a colon and a space (the intention is that the symbol is the name of the function signalling the error).") + ((beginner-error error) (any ... -> void) "signals an error, combining the given values into an error message.\n\nIf any of the values' printed representations is too long, it is truncated and ``...'' is put into the string. If the first value is a symbol, it is treated specially; it is suffixed with a colon and a space (the intention is that the symbol is the name of the function signaling the error).") ((beginner-struct? struct?) (any -> boolean) "Determines whether some value is a structure.") ((beginner-equal? equal?) (any any -> boolean) diff --git a/collects/macro-debugger/model/reductions-engine.rkt b/collects/macro-debugger/model/reductions-engine.rkt index b80eb25430..7f43d2bd6f 100644 --- a/collects/macro-debugger/model/reductions-engine.rkt +++ b/collects/macro-debugger/model/reductions-engine.rkt @@ -573,7 +573,7 @@ [id (identifier? #'id) (list #'id)] [() null] [(x . y) (append (flatten-identifiers #'x) (flatten-identifiers #'y))] - [else (error 'flatten-identifers "neither syntax list nor identifier: ~s" + [else (error 'flatten-identifiers "neither syntax list nor identifier: ~s" (if (syntax? stx) (syntax->datum stx) stx))])) diff --git a/collects/macro-debugger/syntax-browser/frame.rkt b/collects/macro-debugger/syntax-browser/frame.rkt index 8b5b016cf5..ec935e049c 100644 --- a/collects/macro-debugger/syntax-browser/frame.rkt +++ b/collects/macro-debugger/syntax-browser/frame.rkt @@ -71,7 +71,7 @@ (define -identifier=-choices (identifier=-choices)) (define -choice - (new choice% (label "identifer=?") (parent -control-panel) + (new choice% (label "identifier=?") (parent -control-panel) (choices (map car -identifier=-choices)) (callback (lambda (c e) diff --git a/collects/meta/build/unix-installer/test-installer b/collects/meta/build/unix-installer/test-installer index 37c651b901..a46b83c643 100755 --- a/collects/meta/build/unix-installer/test-installer +++ b/collects/meta/build/unix-installer/test-installer @@ -20,7 +20,7 @@ exec racket "$0" "$@" (define path (or (find-executable-path name) (err "no `~a' executable found" name))) (λ args (unless (apply system* path args) - (err "`~a' signalled an error" name)))) + (err "`~a' signaled an error" name)))) (define expect-exe (exe "expect")) (define sync-exe (exe "sync")) diff --git a/collects/plai/gc2/private/gc-core.rkt b/collects/plai/gc2/private/gc-core.rkt index 3bcb4bd559..792d5cbf13 100644 --- a/collects/plai/gc2/private/gc-core.rkt +++ b/collects/plai/gc2/private/gc-core.rkt @@ -59,7 +59,7 @@ (define (location? v) (if (vector? (current-heap)) (and (exact-nonnegative-integer? v) (< v (vector-length (current-heap)))) - (error "Heap is unintialized"))) + (error "Heap is uninitialized"))) (provide/contract (init-heap! (exact-nonnegative-integer? . -> . void?))) (define (init-heap! size) diff --git a/collects/plai/private/gc-core.rkt b/collects/plai/private/gc-core.rkt index efa922faa8..7247a33663 100644 --- a/collects/plai/private/gc-core.rkt +++ b/collects/plai/private/gc-core.rkt @@ -59,7 +59,7 @@ (define (location? v) (if (vector? (current-heap)) (and (exact-nonnegative-integer? v) (< v (vector-length (current-heap)))) - (error "Heap is unintialized"))) + (error "Heap is uninitialized"))) (provide/contract (init-heap! (exact-nonnegative-integer? . -> . void?))) (define (init-heap! size) diff --git a/collects/redex/private/matcher.rkt b/collects/redex/private/matcher.rkt index e39dcad459..c249535834 100644 --- a/collects/redex/private/matcher.rkt +++ b/collects/redex/private/matcher.rkt @@ -65,7 +65,7 @@ See match-a-pattern.rkt for more details ;; bindings = (make-bindings (listof rib)) ;; rib = (make-bind sym sexp) -;; if a rib has a pair, the first element of the pair should be treated as a prefix on the identifer +;; if a rib has a pair, the first element of the pair should be treated as a prefix on the identifier ;; NOTE: the bindings may contain mismatch-ribs temporarily, but they are all removed ;; by merge-multiples/remove, a helper function called from match-pattern (define-values (make-bindings bindings-table bindings? empty-bindings) diff --git a/collects/srfi/25/arlib.scm b/collects/srfi/25/arlib.scm index cc8153b386..afe56eaf16 100644 --- a/collects/srfi/25/arlib.scm +++ b/collects/srfi/25/arlib.scm @@ -85,7 +85,7 @@ (array-ref b ks))))))))) ;;; (shape-for-each shp proc [index-object]) -;;; passes each index in shape to proc in row-major orderd, using +;;; passes each index in shape to proc in row-major ordered, using ;;; index-object if provided. (define (shape-for-each shp proc . o) diff --git a/collects/syntax/scribblings/parse/ex-many-kws.scrbl b/collects/syntax/scribblings/parse/ex-many-kws.scrbl index 1e197a5cde..07bed7f30c 100644 --- a/collects/syntax/scribblings/parse/ex-many-kws.scrbl +++ b/collects/syntax/scribblings/parse/ex-many-kws.scrbl @@ -133,5 +133,5 @@ Note that there are other constraints that we have not represented in the pattern. For example, @racket[#:prefab] is also incompatible with both @racket[#:guard] and @racket[#:property]. Repetition constraints cannot express arbitrary incompatibility relations. The best way to -handle such contraints is with a side condition using +handle such constraints is with a side condition using @racket[#:fail-when]. diff --git a/collects/syntax/scribblings/parse/lib.scrbl b/collects/syntax/scribblings/parse/lib.scrbl index af4a5b492d..c768953e83 100644 --- a/collects/syntax/scribblings/parse/lib.scrbl +++ b/collects/syntax/scribblings/parse/lib.scrbl @@ -117,7 +117,7 @@ error message to describe the expression the contract is applied to. The @racket[context] argument is used, when necessary, to infer the macro name for the negative blame party and the contract error message. The @racket[context] should be either an identifier or a -syntax pair with an identifer in operator position; in either case, +syntax pair with an identifier in operator position; in either case, that identifier is taken as the macro ultimately requesting the contract wrapping. diff --git a/collects/syntax/scribblings/parse/patterns.scrbl b/collects/syntax/scribblings/parse/patterns.scrbl index add0f7f797..8154b62877 100644 --- a/collects/syntax/scribblings/parse/patterns.scrbl +++ b/collects/syntax/scribblings/parse/patterns.scrbl @@ -773,7 +773,7 @@ Matches a sequence of one element, which must be a term matching An @deftech{@EHpattern} (abbreviated @svar[EH-pattern]) is pattern that describes some number of terms, like a @tech{@Hpattern}, but also -places contraints on the number of times it occurs in a +places constraints on the number of times it occurs in a repetition. They are useful for matching, for example, keyword arguments where the keywords may come in any order. Multiple alternatives are grouped together via @ref[~or eh]. diff --git a/collects/syntax/scribblings/parse/stxclasses.scrbl b/collects/syntax/scribblings/parse/stxclasses.scrbl index 0ac8f3b7b4..be1f8b3551 100644 --- a/collects/syntax/scribblings/parse/stxclasses.scrbl +++ b/collects/syntax/scribblings/parse/stxclasses.scrbl @@ -298,7 +298,7 @@ object or a syntax list of the appropriate @tech{ellipsis depth}. Syntax-valued attributes can be used within @racket[syntax], @racket[quasisyntax], etc as part of a syntax template. If a non-syntax-valued attribute is used in a syntax template, a runtime -error is signalled. +error is signaled. @myexamples[ (syntax-parse #'((a 1) (b 2) (c 3)) diff --git a/collects/syntax/struct.rkt b/collects/syntax/struct.rkt index 508980ef13..c41c4732f4 100644 --- a/collects/syntax/struct.rkt +++ b/collects/syntax/struct.rkt @@ -30,7 +30,7 @@ [(_ bad . rest) (raise-syntax-error #f - "expected an identifer or parenthesized sequence of two identifiers" + "expected an identifier or parenthesized sequence of two identifiers" orig-stx #'bad)])) diff --git a/collects/tests/racket/sandbox.rktl b/collects/tests/racket/sandbox.rktl index 4ca325f426..b19fe662ca 100644 --- a/collects/tests/racket/sandbox.rktl +++ b/collects/tests/racket/sandbox.rktl @@ -48,7 +48,7 @@ ;; problems deleting an open file: (when old-port (close-input-port old-port) (set! old-port #f)) (when (input-port? (car args)) (set! old-port (car args))) - ;; Create and install the evalautor: + ;; Create and install the evaluator: (set! ev (apply make-module-evaluator args #:allow-read allow))) (define (run thunk) (with-handlers ([void (lambda (e) (list 'exn: e))]) diff --git a/collects/tests/typed-racket/xfail/ann-map-funcs.rkt b/collects/tests/typed-racket/xfail/ann-map-funcs.rkt index 5a87b8cf91..f2973cb678 100644 --- a/collects/tests/typed-racket/xfail/ann-map-funcs.rkt +++ b/collects/tests/typed-racket/xfail/ann-map-funcs.rkt @@ -2,7 +2,7 @@ ;; This test is similar to unholy-terror. ;; Recent changes to the numeric tower makes this generate a ridiculous amount -;; of inference contraints. +;; of inference constraints. ;; Changes to the inference engine breaks inference on this test, but unlike ;; unholy terror, this one fails quite fast, so it's not as bad. ;; Reverting these changes would make inference work again, given enough time diff --git a/collects/typed-racket/env/lexical-env.rkt b/collects/typed-racket/env/lexical-env.rkt index 4fbfbfccd5..20eb954333 100644 --- a/collects/typed-racket/env/lexical-env.rkt +++ b/collects/typed-racket/env/lexical-env.rkt @@ -38,7 +38,7 @@ (with-lexical-env (replace-props (extend/values is ts (lexical-env)) ps) . b)) ;; find the type of identifier i, looking first in the lexical env, then in the top-level env -;; identifer -> Type +;; identifier -> Type (define (lookup-type/lexical i [env (lexical-env)] #:fail [fail #f]) (lookup env i (λ (i) (lookup-type i (λ () ((or fail lookup-fail) i)))))) diff --git a/collects/typed-racket/private/type-annotation.rkt b/collects/typed-racket/private/type-annotation.rkt index 4516cb7a21..cc4440beb7 100644 --- a/collects/typed-racket/private/type-annotation.rkt +++ b/collects/typed-racket/private/type-annotation.rkt @@ -113,7 +113,7 @@ [else (tc-error "no type information on variable ~a" (syntax-e stx))]))) -;; Listof[identifer] #:default Type -> Listof[Type] +;; Listof[identifier] #:default Type -> Listof[Type] (define (get-types stxs #:default [default #f]) (map (lambda (e) (get-type e #:default default)) stxs)) diff --git a/collects/typed-racket/typecheck/tc-structs.rkt b/collects/typed-racket/typecheck/tc-structs.rkt index 015c9af11e..aca0aaddb1 100644 --- a/collects/typed-racket/typecheck/tc-structs.rkt +++ b/collects/typed-racket/typecheck/tc-structs.rkt @@ -144,7 +144,7 @@ ;; generate names, and register the approriate types give field types and structure type ;; optionally wrap things -;; identifier Type Listof[identifer] Listof[Type] Listof[Type] #:wrapper (Type -> Type) #:maker identifier +;; identifier Type Listof[identifier] Listof[Type] Listof[Type] #:wrapper (Type -> Type) #:maker identifier (define/cond-contract (register-struct-types nm sty flds external-fld-types external-fld-types/no-parent setters? #:wrapper [wrapper values] #:struct-info [si #f] diff --git a/collects/unstable/temp-c/scribblings/temp-c.scrbl b/collects/unstable/temp-c/scribblings/temp-c.scrbl index 2dd257ffd8..a638d7217e 100644 --- a/collects/unstable/temp-c/scribblings/temp-c.scrbl +++ b/collects/unstable/temp-c/scribblings/temp-c.scrbl @@ -126,7 +126,7 @@ First, a few @racket[match] patterns are available to avoid specify all the deta @defform[(call n a ...)]{ A @racket[match] expander for call events to the labeled function @racket[n] with arguments @racket[a]. } @defform[(ret n a ...)]{ A @racket[match] expander for return events to the labeled function @racket[n] with return values @racket[a]. } -@defform[(with-monitor contract-expr re-pat)]{ Defines a monitored contract where the structural portion of the contract is the @racket[contract-expr] (which may included embedded @racket[label] expressions) and where the temporal portion of the contract is the regular expression given by @racket[re-pat]. (Note: @racket[re-pat] is not a Racket expression that evaluates to a regular expression. It is a literal regular expession.) An optional @racket[#:concurrent] may be added between the contract and the regular expression to ensure that the machine is safe against race-conditions.} +@defform[(with-monitor contract-expr re-pat)]{ Defines a monitored contract where the structural portion of the contract is the @racket[contract-expr] (which may included embedded @racket[label] expressions) and where the temporal portion of the contract is the regular expression given by @racket[re-pat]. (Note: @racket[re-pat] is not a Racket expression that evaluates to a regular expression. It is a literal regular expression.) An optional @racket[#:concurrent] may be added between the contract and the regular expression to ensure that the machine is safe against race-conditions.} @defform[(label id contract-expr)]{ Labels a portion of a structural contract inside of @racket[with-monitor] with the label @racket[id]. } diff --git a/collects/web-server/scribblings/managers.scrbl b/collects/web-server/scribblings/managers.scrbl index 482f8f56ce..d47a1f5263 100644 --- a/collects/web-server/scribblings/managers.scrbl +++ b/collects/web-server/scribblings/managers.scrbl @@ -18,7 +18,7 @@ pluggable through the manager interface. @defmodule[web-server/managers/manager]{ This module defines the manager interface. It is required by -the users and implementers of managers. +the users and implementors of managers. @defstruct[manager ([create-instance ((-> void) . -> . number?)] [adjust-timeout! (number? number? . -> . void)] diff --git a/collects/web-server/scribblings/templates.scrbl b/collects/web-server/scribblings/templates.scrbl index 5d85661eea..b1a942ef1a 100644 --- a/collects/web-server/scribblings/templates.scrbl +++ b/collects/web-server/scribblings/templates.scrbl @@ -185,7 +185,7 @@ The @at-reader-ref will read Racket identifiers, so it does not terminate identi }| will complain that the identifier @racket[place!] is undefined. You can subvert this by explicitly delimiting the -identifer: +identifier: @verbatim[#:indent 2]|{