1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

Fix typos throughout codebase.

* 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 <ludo@gnu.org>
This commit is contained in:
Morgan Smith 2024-02-01 14:32:59 -05:00 committed by Ludovic Courtès
parent 5fcf6ff17a
commit f27e8b855f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
49 changed files with 409 additions and 400 deletions

View file

@ -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,

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -481,7 +481,7 @@
;; (lexical . <var>) lexical variables
;; (ellipsis . <identifier>) custom ellipsis
;; (displaced-lexical) displaced lexicals
;; <level> ::= <nonnegative integer>
;; <level> ::= <non-negative integer>
;; <var> ::= variable returned by build-lexical-var
;; a macro is a user-defined syntactic-form. a core is a

View file

@ -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

View file

@ -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)))
(($ <primcall> 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

View file

@ -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

View file

@ -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

View file

@ -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))

View file

@ -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