From f27e8b855f45bff1fde82d4d0f155a72feebab3f Mon Sep 17 00:00:00 2001 From: Morgan Smith Date: Thu, 1 Feb 2024 14:32:59 -0500 Subject: Fix typos throughout codebase. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * NEWS: * doc/ref/api-control.texi: * doc/ref/api-data.texi: * doc/ref/api-debug.texi: * doc/ref/api-deprecated.texi: * doc/ref/api-evaluation.texi: * doc/ref/api-foreign.texi: * doc/ref/api-i18n.texi: * doc/ref/api-io.texi: * doc/ref/api-languages.texi: * doc/ref/api-macros.texi: * doc/ref/api-memory.texi: * doc/ref/api-modules.texi: * doc/ref/api-options.texi: * doc/ref/api-peg.texi: * doc/ref/api-procedures.texi: * doc/ref/api-scheduling.texi: * doc/ref/api-undocumented.texi: * doc/ref/api-utility.texi: * doc/ref/expect.texi: * doc/ref/goops.texi: * doc/ref/misc-modules.texi: * doc/ref/posix.texi: * doc/ref/repl-modules.texi: * doc/ref/scheme-ideas.texi: * doc/ref/scheme-scripts.texi: * doc/ref/srfi-modules.texi: * gc-benchmarks/larceny/dynamic.sch: * gc-benchmarks/larceny/twobit-input-long.sch: * gc-benchmarks/larceny/twobit.sch: * libguile/gc.h: * libguile/ioext.c: * libguile/list.c: * libguile/options.c: * libguile/posix.c: * libguile/threads.c: * module/ice-9/boot-9.scm: * module/ice-9/optargs.scm: * module/ice-9/ports.scm: * module/ice-9/pretty-print.scm: * module/ice-9/psyntax.scm: * module/language/elisp/parser.scm: * module/language/tree-il/compile-bytecode.scm: * module/srfi/srfi-37.scm: * module/srfi/srfi-43.scm: * module/statprof.scm: * module/texinfo/reflection.scm: * test-suite/tests/eval.test: * test-suite/tests/fluids.test: Fix typos. Signed-off-by: Ludovic Courtès --- module/ice-9/boot-9.scm | 10 +++++----- module/ice-9/optargs.scm | 2 +- module/ice-9/ports.scm | 2 +- module/ice-9/pretty-print.scm | 2 +- module/ice-9/psyntax.scm | 2 +- module/language/elisp/parser.scm | 2 +- module/language/tree-il/compile-bytecode.scm | 4 ++-- module/srfi/srfi-37.scm | 2 +- module/srfi/srfi-43.scm | 12 ++++++------ module/statprof.scm | 2 +- module/texinfo/reflection.scm | 2 +- 11 files changed, 21 insertions(+), 21 deletions(-) (limited to 'module') diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index a5f2eea9b..378ae2457 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2750,8 +2750,8 @@ are not themselves bound to a defined value." (define (module-symbol-local-binding m v . opt-val) "Return the binding of variable V specified by name within module M, -signalling an error if the variable is unbound. If the OPT-VALUE is -passed, then instead of signalling an error, return OPT-VALUE." +signaling an error if the variable is unbound. If the OPT-VALUE is +passed, then instead of signaling an error, return OPT-VALUE." (let ((var (module-local-variable m v))) (if (and var (variable-bound? var)) (variable-ref var) @@ -2761,8 +2761,8 @@ passed, then instead of signalling an error, return OPT-VALUE." (define (module-symbol-binding m v . opt-val) "Return the binding of variable V specified by name within module M, -signalling an error if the variable is unbound. If the OPT-VALUE is -passed, then instead of signalling an error, return OPT-VALUE." +signaling an error if the variable is unbound. If the OPT-VALUE is +passed, then instead of signaling an error, return OPT-VALUE." (let ((var (module-variable m v))) (if (and var (variable-bound? var)) (variable-ref var) @@ -3452,7 +3452,7 @@ error if selected binding does not exist in the used module." ;; FIXME: Avoid use of `apply'. (apply module-autoload! module autoloads) (let ((duplicates (or duplicates - ;; Avoid stompling a previously installed + ;; Avoid stomping a previously installed ;; duplicates handlers if possible. (and (not (module-duplicates-handlers module)) ;; Note: If you change this default, diff --git a/module/ice-9/optargs.scm b/module/ice-9/optargs.scm index dc4ec9571..11c8636e3 100644 --- a/module/ice-9/optargs.scm +++ b/module/ice-9/optargs.scm @@ -196,7 +196,7 @@ ;; ;; lambda* creates a procedure that takes optional arguments. These ;; are specified by putting them inside brackets at the end of the -;; paramater list, but before any dotted rest argument. For example, +;; parameter list, but before any dotted rest argument. For example, ;; (lambda* (a b #:optional c d . e) '()) ;; creates a procedure with fixed arguments a and b, optional arguments c ;; and d, and rest argument e. If the optional arguments are omitted diff --git a/module/ice-9/ports.scm b/module/ice-9/ports.scm index 926dc5b0b..833429eca 100644 --- a/module/ice-9/ports.scm +++ b/module/ice-9/ports.scm @@ -461,7 +461,7 @@ never again be used for a read or write operation." (define* (call-with-output-file file proc #:key (binary #f) (encoding #f)) "PROC should be a procedure of one argument, and FILE should be a -string naming a file. The behaviour is unspecified if the file +string naming a file. The behavior is unspecified if the file already exists. These procedures call PROC with one argument: the port obtained by opening the named file for input or output. If the file cannot be opened, an error is diff --git a/module/ice-9/pretty-print.scm b/module/ice-9/pretty-print.scm index fa0402a18..4bc951ebf 100644 --- a/module/ice-9/pretty-print.scm +++ b/module/ice-9/pretty-print.scm @@ -320,7 +320,7 @@ into @var{width} characters. By default, @var{x} will be printed using @code{write}, though that behavior can be overriden via the @var{display?} keyword argument. -The default behaviour is to print depth-first, meaning that the entire +The default behavior is to print depth-first, meaning that the entire remaining width will be available to each sub-expression of @var{x} -- e.g., if @var{x} is a vector, each member of @var{x}. One can attempt to \"ration\" the available width, trying to allocate it equally to each diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 3e80446bd..5fbd8f458 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -481,7 +481,7 @@ ;; (lexical . ) lexical variables ;; (ellipsis . ) custom ellipsis ;; (displaced-lexical) displaced lexicals - ;; ::= + ;; ::= ;; ::= variable returned by build-lexical-var ;; a macro is a user-defined syntactic-form. a core is a diff --git a/module/language/elisp/parser.scm b/module/language/elisp/parser.scm index e83f136bb..a7aeff014 100644 --- a/module/language/elisp/parser.scm +++ b/module/language/elisp/parser.scm @@ -37,7 +37,7 @@ ;;; For parsing circular structures, we keep track of definitions in a ;;; hash-map that maps the id's to their values. When defining a new -;;; id, though, we immediatly fill the slot with a promise before +;;; id, though, we immediately fill the slot with a promise before ;;; parsing and setting the real value, because it must already be ;;; available at that time in case of a circular reference. The promise ;;; refers to a local variable that will be set when the real value is diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm index 8418f089a..a581b7f6c 100644 --- a/module/language/tree-il/compile-bytecode.scm +++ b/module/language/tree-il/compile-bytecode.scm @@ -1124,7 +1124,7 @@ in the frame with for the lambda-case clause @var{clause}." (0 (emit-load-static-procedure asm dst label)) (nfree - ;; Stage closure in 0 to avoid stompling captured free + ;; Stage closure in 0 to avoid stomping captured free ;; vars. (emit-allocate-closure asm 0 nfree label 1) (init-free-vars 0 free-vars env 1 2) @@ -1148,7 +1148,7 @@ in the frame with for the lambda-case clause @var{clause}." frame-size))) (($ src (? variadic-constructor? name) args) - ;; Stage result in 0 to avoid stompling args. + ;; Stage result in 0 to avoid stomping args. (let ((args (for-args args env))) (maybe-emit-source src) (match name diff --git a/module/srfi/srfi-37.scm b/module/srfi/srfi-37.scm index c34b0d083..9b57ac1c2 100644 --- a/module/srfi/srfi-37.scm +++ b/module/srfi/srfi-37.scm @@ -84,7 +84,7 @@ (define (build-options-lookup options) "Answer an `equal?' Guile hash-table that maps OPTIONS' names back -to the containing options, signalling an error if a name is +to the containing options, signaling an error if a name is encountered more than once." (let ((lookup (make-hash-table (* 2 (length options))))) (for-each diff --git a/module/srfi/srfi-43.scm b/module/srfi/srfi-43.scm index 18e97cf53..4c94036e3 100644 --- a/module/srfi/srfi-43.scm +++ b/module/srfi/srfi-43.scm @@ -546,7 +546,7 @@ left-to-right." (define vector-count (case-lambda - "(vector-count pred? vec1 vec2 ...) -> exact nonnegative integer + "(vector-count pred? vec1 vec2 ...) -> exact non-negative integer Count the number of indices i for which (PRED? VEC1[i] VEC2[i] ...) returns true, where i is less than the length of the shortest vector @@ -586,7 +586,7 @@ passed." (define vector-index (case-lambda - "(vector-index pred? vec1 vec2 ...) -> exact nonnegative integer or #f + "(vector-index pred? vec1 vec2 ...) -> exact non-negative integer or #f Find and return the index of the first elements in VEC1 VEC2 ... that satisfy PRED?. If no matching element is found by the end of the @@ -624,7 +624,7 @@ shortest vector, return #f." (define vector-index-right (case-lambda - "(vector-index-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f + "(vector-index-right pred? vec1 vec2 ...) -> exact non-negative integer or #f Find and return the index of the last elements in VEC1 VEC2 ... that satisfy PRED?, searching from right-to-left. If no matching element @@ -662,7 +662,7 @@ is found before the end of the shortest vector, return #f." (define vector-skip (case-lambda - "(vector-skip pred? vec1 vec2 ...) -> exact nonnegative integer or #f + "(vector-skip pred? vec1 vec2 ...) -> exact non-negative integer or #f Find and return the index of the first elements in VEC1 VEC2 ... that do not satisfy PRED?. If no matching element is found by the end of @@ -700,7 +700,7 @@ the shortest vector, return #f." (define vector-skip-right (case-lambda - "(vector-skip-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f + "(vector-skip-right pred? vec1 vec2 ...) -> exact non-negative integer or #f Find and return the index of the last elements in VEC1 VEC2 ... that do not satisfy PRED?, searching from right-to-left. If no matching @@ -748,7 +748,7 @@ element is found before the end of the shortest vector, return #f." ((positive? c) (loop lo i)) ((negative? c) (loop (+ i 1) hi))))))) (case-lambda - "(vector-binary-search vec value cmp [start [end]]) -> exact nonnegative integer or #f + "(vector-binary-search vec value cmp [start [end]]) -> exact non-negative integer or #f Find and return an index of VEC between START and END whose value is VALUE using a binary search. If no matching element is found, return diff --git a/module/statprof.scm b/module/statprof.scm index e334c2beb..e18be4842 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -319,7 +319,7 @@ than @code{statprof-stop}, @code{#f} otherwise." ;; Do not call this from statprof internal functions -- user only. (define* (statprof-stop #:optional (state (ensure-profiler-state))) - "Stop the profiler.@code{}" + "Stop the profiler." ;; After some head-scratching, I don't *think* I need to mask/unmask ;; signals here, but if I'm wrong, please let me know. (set-profile-level! state (- (profile-level state) 1)) diff --git a/module/texinfo/reflection.scm b/module/texinfo/reflection.scm index 4ff11995c..8033eb047 100644 --- a/module/texinfo/reflection.scm +++ b/module/texinfo/reflection.scm @@ -20,7 +20,7 @@ ;;; Commentary: ;; -;;Routines to generare @code{stexi} documentation for objects and +;;Routines to generate @code{stexi} documentation for objects and ;;modules. ;; ;;Note that in this context, an @dfn{object} is just a value associated -- cgit v1.2.3