mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-19 18:20:22 +02:00
Fix typos throughout codebase.
* NEWS: * README: * doc/r5rs/r5rs.texi: * doc/ref/api-data.texi: * doc/ref/api-debug.texi: * doc/ref/api-evaluation.texi: * doc/ref/api-io.texi: * doc/ref/api-macros.texi: * doc/ref/api-procedures.texi: * doc/ref/api-scheduling.texi: * doc/ref/api-undocumented.texi: * doc/ref/libguile-concepts.texi: * doc/ref/posix.texi: * doc/ref/srfi-modules.texi: * doc/ref/vm.texi: * doc/ref/web.texi: * examples/box-dynamic-module/box.c: * examples/box-dynamic/box.c: * examples/box-module/box.c: * examples/box/box.c: * examples/safe/safe: * examples/scripts/README: * examples/scripts/hello: * gc-benchmarks/larceny/twobit-input-long.sch: * gc-benchmarks/larceny/twobit-smaller.sch: * gc-benchmarks/larceny/twobit.sch: * libguile/expand.c: * libguile/load.c: * libguile/net_db.c: * libguile/scmsigs.c: * libguile/srfi-14.c: * libguile/threads.c: * meta/guile.m4: * module/ice-9/match.upstream.scm: * module/ice-9/ports.scm: * module/language/cps/graphs.scm: * module/scripts/doc-snarf.scm: * module/srfi/srfi-19.scm: * module/system/repl/command.scm: * test-suite/tests/srfi-18.test: Fix typos. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
99e727adde
commit
c7d170c5d1
40 changed files with 360 additions and 360 deletions
|
@ -28,7 +28,7 @@
|
|||
|
||||
;;> @example{(let ((ls (list 1 2 3))) (match ls ((1 2 3) #t)))}
|
||||
|
||||
;;> If no patterns match an error is signalled.
|
||||
;;> If no patterns match an error is signaled.
|
||||
|
||||
;;> Identifiers will match anything, and make the corresponding
|
||||
;;> binding available in the body.
|
||||
|
@ -261,7 +261,7 @@
|
|||
;;> of the entire @scheme{match}. If a @var{failure} is provided,
|
||||
;;> then it is bound to a procedure of no arguments which continues,
|
||||
;;> processing at the next @var{pattern}. If no @var{pattern} matches,
|
||||
;;> an error is signalled.
|
||||
;;> an error is signaled.
|
||||
|
||||
;; The basic interface. MATCH just performs some basic syntax
|
||||
;; validation, binds the match expression to a temporary variable `v',
|
||||
|
|
|
@ -409,7 +409,7 @@ interpret its input and output."
|
|||
file #:key (binary #f) (encoding #f) (guess-encoding #f))
|
||||
"Takes a string naming an existing file and returns an input port
|
||||
capable of delivering characters from the file. If the file
|
||||
cannot be opened, an error is signalled."
|
||||
cannot be opened, an error is signaled."
|
||||
(open-file file (if binary "rb" "r")
|
||||
#:encoding encoding
|
||||
#:guess-encoding guess-encoding))
|
||||
|
@ -417,7 +417,7 @@ cannot be opened, an error is signalled."
|
|||
(define* (open-output-file file #:key (binary #f) (encoding #f))
|
||||
"Takes a string naming an output file to be created and returns an
|
||||
output port capable of writing characters to a new file by that
|
||||
name. If the file cannot be opened, an error is signalled. If a
|
||||
name. If the file cannot be opened, an error is signaled. If a
|
||||
file with the given name already exists, the effect is unspecified."
|
||||
(open-file file (if binary "wb" "w")
|
||||
#:encoding encoding))
|
||||
|
@ -442,7 +442,7 @@ string naming a file. The file must
|
|||
already exist. 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
|
||||
signalled. If the procedure returns, then the port is closed
|
||||
signaled. If the procedure returns, then the port is closed
|
||||
automatically and the values yielded by the procedure are returned.
|
||||
If the procedure does not return, then the port will not be closed
|
||||
automatically unless it is possible to prove that the port will
|
||||
|
@ -459,7 +459,7 @@ string naming a file. The behaviour 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
|
||||
signalled. If the procedure returns, then the port is closed
|
||||
signaled. If the procedure returns, then the port is closed
|
||||
automatically and the values yielded by the procedure are returned.
|
||||
If the procedure does not return, then the port will not be closed
|
||||
automatically unless it is possible to prove that the port will
|
||||
|
|
|
@ -86,14 +86,14 @@ member, or @code{#f} otherwise."
|
|||
(define (invert-bijection map)
|
||||
"Assuming the values of @var{map} are integers and are unique, compute
|
||||
a map in which each value maps to its key. If the values are not
|
||||
unique, an error will be signalled."
|
||||
unique, an error will be signaled."
|
||||
(persistent-intmap
|
||||
(intmap-fold (lambda (k v out) (intmap-add! out v k)) map empty-intmap)))
|
||||
|
||||
(define (invert-partition map)
|
||||
"Assuming the values of @var{map} are disjoint intsets, compute a map
|
||||
in which each member of each set maps to its key. If the values are not
|
||||
disjoint, an error will be signalled."
|
||||
disjoint, an error will be signaled."
|
||||
(intmap-fold (lambda (k v* out)
|
||||
(intset-fold (lambda (v out) (intmap-add out v k)) v* out))
|
||||
map empty-intmap))
|
||||
|
|
|
@ -24,8 +24,8 @@
|
|||
;; Usage: doc-snarf FILE
|
||||
;;
|
||||
;; This program reads in a Scheme source file and extracts docstrings
|
||||
;; in the format specified below. Additionally, a procedure protoype
|
||||
;; is infered from the procedure definition line starting with
|
||||
;; in the format specified below. Additionally, a procedure prototype
|
||||
;; is inferred from the procedure definition line starting with
|
||||
;; (define... ).
|
||||
;;
|
||||
;; Currently, two output modi are implemented: texinfo and plaintext.
|
||||
|
@ -33,9 +33,9 @@
|
|||
;; `--texinfo, -t' command line option.
|
||||
;;
|
||||
;; Format: A docstring can span multiple lines and a docstring line
|
||||
;; begins with `;; ' (two semicoli and a space). A docstring is ended
|
||||
;; begins with `;; ' (two semicolons and a space). A docstring is ended
|
||||
;; by either a line beginning with (define ...) or one or more lines
|
||||
;; beginning with `;;-' (two semicoli and a dash). These lines are
|
||||
;; beginning with `;;-' (two semicolons and a dash). These lines are
|
||||
;; called `options' and begin with a keyword, followed by a colon and
|
||||
;; a string.
|
||||
;;
|
||||
|
@ -219,7 +219,7 @@ return the standard internal docstring if found. Return #f if not."
|
|||
;; to be written in language @var{lang}.
|
||||
;;-Author: Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
|
||||
;;-Created: 2001-02-17
|
||||
;;-ttn-mod: regluarize lang parm lookup, add "std int doc" snarfing (2 places)
|
||||
;;-ttn-mod: regularize lang parm lookup, add "std int doc" snarfing (2 places)
|
||||
(define (snarf input-file lang)
|
||||
(let* ((i-p (open-input-file input-file))
|
||||
(parm-regexp (lambda (parm) (make-regexp (lang-parm lang parm))))
|
||||
|
|
|
@ -320,7 +320,7 @@
|
|||
;; (* (remainder current-ms 1000) 10000))))
|
||||
|
||||
;; -- we define it to be the same as TAI.
|
||||
;; A different implemention of current-time-monotonic
|
||||
;; A different implementation of current-time-monotonic
|
||||
;; will require rewriting all of the time-monotonic converters,
|
||||
;; of course.
|
||||
|
||||
|
|
|
@ -166,7 +166,7 @@
|
|||
(define (meta-command repl)
|
||||
(let ((command (read-command repl)))
|
||||
(cond
|
||||
((eq? command *unspecified*)) ; read error, already signalled; pass.
|
||||
((eq? command *unspecified*)) ; read error, already signaled; pass.
|
||||
((not (symbol? command))
|
||||
(format #t "Meta-command not a symbol: ~s~%" command))
|
||||
((lookup-command command)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue