summaryrefslogtreecommitdiff
path: root/module/srfi
diff options
context:
space:
mode:
authorMorgan Smith <Morgan.J.Smith@outlook.com>2024-02-01 14:32:59 -0500
committerLudovic Courtès <ludo@gnu.org>2024-05-06 11:51:53 +0200
commitf27e8b855f45bff1fde82d4d0f155a72feebab3f (patch)
tree56f72a623865b51c01d17d755d309c4f1411db79 /module/srfi
parent5fcf6ff17a567ad9edfb81c1858055c7bac70ca1 (diff)
downloadguile-f27e8b855f45bff1fde82d4d0f155a72feebab3f.tar.gz
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>
Diffstat (limited to 'module/srfi')
-rw-r--r--module/srfi/srfi-37.scm2
-rw-r--r--module/srfi/srfi-43.scm12
2 files changed, 7 insertions, 7 deletions
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