mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 11:10:32 +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:
Morgan Smith
Ludovic Courtès
parent
99e727adde
commit
c7d170c5d1
40 changed files with 360 additions and 360 deletions
2
README
2
README
|
|
@ -172,7 +172,7 @@ switches specific to Guile you may find useful in some circumstances.
|
|||
Build a Guile executable and library that supports multi-threading.
|
||||
|
||||
The default is to enable threading support when your operating
|
||||
system offsers 'POSIX threads'. When you do not want threading, use
|
||||
system offers 'POSIX threads'. When you do not want threading, use
|
||||
`--without-threads'.
|
||||
|
||||
--enable-deprecated=LEVEL
|
||||
|
|
|
|||
|
|
@ -633,7 +633,7 @@ provided as convenient abbreviations.
|
|||
|
||||
@cindex @w{error}
|
||||
When speaking of an error situation, this report uses the phrase ``an
|
||||
error is signalled'' to indicate that implementations must detect and
|
||||
error is signaled'' to indicate that implementations must detect and
|
||||
report the error. If such wording does not appear in the discussion of
|
||||
an error, then implementations are not required to detect or report the
|
||||
error, though they are encouraged to do so. An error situation that
|
||||
|
|
@ -6804,7 +6804,7 @@ the file should already exist; for
|
|||
the effect is unspecified if the file
|
||||
already exists. These procedures call @var{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 @var{proc} returns,
|
||||
file cannot be opened, an error is signaled. If @var{proc} returns,
|
||||
then the port is closed automatically and the value(s) yielded by the
|
||||
@var{proc} is(are) returned. If @var{proc} does not return, then
|
||||
the port will not be closed automatically unless it is possible to
|
||||
|
|
@ -6905,7 +6905,7 @@ instead of ``the value returned by @var{current-input-port}''. (Same for
|
|||
|
||||
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.
|
||||
signaled.
|
||||
|
||||
@end deffn
|
||||
|
||||
|
|
@ -6915,7 +6915,7 @@ signalled.
|
|||
|
||||
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 file with the given name
|
||||
cannot be opened, an error is signaled. If a file with the given name
|
||||
already exists, the effect is unspecified.
|
||||
|
||||
@end deffn
|
||||
|
|
@ -6985,7 +6985,7 @@ object is returned.
|
|||
to read will also return an end of file object. If an end of file is
|
||||
encountered after the beginning of an object's external representation,
|
||||
but the external representation is incomplete and therefore not parsable,
|
||||
an error is signalled.
|
||||
an error is signaled.
|
||||
|
||||
The @var{port} argument may be omitted, in which case it defaults to the
|
||||
value returned by @samp{current-input-port}. It is an error to read from
|
||||
|
|
|
|||
|
|
@ -481,7 +481,7 @@ number.
|
|||
@deftypefn {C Function} void scm_to_mpz (SCM val, mpz_t rop)
|
||||
Assign @var{val} to the multiple precision integer @var{rop}.
|
||||
@var{val} must be an exact integer, otherwise an error will be
|
||||
signalled. @var{rop} must have been initialized with @code{mpz_init}
|
||||
signaled. @var{rop} must have been initialized with @code{mpz_init}
|
||||
before this function is called. When @var{rop} is no longer needed
|
||||
the occupied space must be freed with @code{mpz_clear}.
|
||||
@xref{Initializing Integers,,, gmp, GNU MP Manual}, for details.
|
||||
|
|
@ -877,7 +877,7 @@ the number is inexact.
|
|||
|
||||
If the exactness indicator is omitted, the number is exact unless it
|
||||
contains a radix point. Since Guile can not represent exact complex
|
||||
numbers, an error is signalled when asking for them.
|
||||
numbers, an error is signaled when asking for them.
|
||||
|
||||
@lisp
|
||||
(exact? 1.2)
|
||||
|
|
@ -2551,7 +2551,7 @@ Return a character set containing all characters whose
|
|||
character codes lie in the half-open range
|
||||
[@var{lower},@var{upper}).
|
||||
|
||||
If @var{error} is a true value, an error is signalled if the
|
||||
If @var{error} is a true value, an error is signaled if the
|
||||
specified range contains characters which are not contained in
|
||||
the implemented character range. If @var{error} is @code{#f},
|
||||
these characters are silently left out of the resulting
|
||||
|
|
@ -2567,7 +2567,7 @@ Return a character set containing all characters whose
|
|||
character codes lie in the half-open range
|
||||
[@var{lower},@var{upper}).
|
||||
|
||||
If @var{error} is a true value, an error is signalled if the
|
||||
If @var{error} is a true value, an error is signaled if the
|
||||
specified range contains characters which are not contained in
|
||||
the implemented character range. If @var{error} is @code{#f},
|
||||
these characters are silently left out of the resulting
|
||||
|
|
@ -4386,7 +4386,7 @@ encoding of the current locale. The C string must be freed with
|
|||
@xref{Dynamic Wind}.
|
||||
|
||||
For @code{scm_to_locale_string}, the returned string is
|
||||
null-terminated and an error is signalled when @var{str} contains
|
||||
null-terminated and an error is signaled when @var{str} contains
|
||||
@code{#\nul} characters.
|
||||
|
||||
For @code{scm_to_locale_stringn} and @var{lenp} not @code{NULL},
|
||||
|
|
@ -8031,7 +8031,7 @@ must be protected so that the pointer remains valid. Such a protected
|
|||
array is said to be @dfn{reserved}. A reserved array can be read but
|
||||
modifications to it that would cause the pointer to its elements to
|
||||
become invalid are prevented. When you attempt such a modification, an
|
||||
error is signalled.
|
||||
error is signaled.
|
||||
|
||||
(This is similar to locking the array while it is in use, but without
|
||||
the danger of a deadlock. In a multi-threaded program, you will need
|
||||
|
|
@ -8155,7 +8155,7 @@ for (i = 0; i < RANK; i++)
|
|||
Compute the position corresponding to @var{indices}, a list of
|
||||
indices. The position is computed as described above for
|
||||
@code{scm_array_handle_dims}. The number of the indices and their
|
||||
range is checked and an appropriate error is signalled for invalid
|
||||
range is checked and an appropriate error is signaled for invalid
|
||||
indices.
|
||||
@end deftypefn
|
||||
|
||||
|
|
@ -8169,7 +8169,7 @@ range checking is done on @var{pos}.
|
|||
Set the element at position @var{pos} in the storage block of the array
|
||||
represented by @var{handle} to @var{val}. Any kind of array is
|
||||
acceptable. No range checking is done on @var{pos}. An error is
|
||||
signalled when the array can not store @var{val}.
|
||||
signaled when the array can not store @var{val}.
|
||||
@end deftypefn
|
||||
|
||||
@deftypefn {C Function} {const SCM *} scm_array_handle_elements (scm_t_array_handle *handle)
|
||||
|
|
|
|||
|
|
@ -359,7 +359,7 @@ library, or from Guile itself.
|
|||
A common requirement is to be able to show as much useful context as
|
||||
possible when a Scheme program hits an error. The most immediate
|
||||
information about an error is the kind of error that it is -- such as
|
||||
``division by zero'' -- and any parameters that the code which signalled
|
||||
``division by zero'' -- and any parameters that the code which signaled
|
||||
the error chose explicitly to provide. This information originates with
|
||||
the @code{error} or @code{raise-exception} call (or their C code
|
||||
equivalents, if the error is detected by C code) that signals the error,
|
||||
|
|
|
|||
|
|
@ -974,7 +974,7 @@ of modifying the path both at compile-time and at run-time.
|
|||
Search @code{%load-path} for the file named @var{filename} and
|
||||
load it into the top-level environment. If @var{filename} is a
|
||||
relative pathname and is not found in the list of search paths,
|
||||
an error is signalled. Preferentially loads a compiled version of the
|
||||
an error is signaled. Preferentially loads a compiled version of the
|
||||
file, if it is available and up-to-date.
|
||||
|
||||
If @var{filename} is a relative pathname and is not found in the list of
|
||||
|
|
@ -983,7 +983,7 @@ second argument, @var{exception-on-not-found}. If it is @code{#f},
|
|||
@code{#f} will be returned. If it is a procedure, it will be called
|
||||
with no arguments. (This allows a distinction to be made between
|
||||
exceptions raised by loading a file, and exceptions related to the
|
||||
loader itself.) Otherwise an error is signalled.
|
||||
loader itself.) Otherwise an error is signaled.
|
||||
|
||||
For compatibility with Guile 1.8 and earlier, the C function takes only
|
||||
one argument, which can be either a string (the file name) or an
|
||||
|
|
|
|||
|
|
@ -710,7 +710,7 @@ something that the user needs to explicitly be aware of.) The data is
|
|||
written to the store later -- when the buffer fills up due to another
|
||||
write, or when @code{force-output} is called, or when @code{close-port}
|
||||
is called, or when the program exits, or even when the garbage collector
|
||||
runs. The salient point is, @emph{the errors are signalled then too}.
|
||||
runs. The salient point is, @emph{the errors are signaled then too}.
|
||||
Buffered writes defer error detection (and defer the side effects to the
|
||||
mutable store), perhaps indefinitely if the port type does not need to
|
||||
be closed at GC.
|
||||
|
|
|
|||
|
|
@ -149,7 +149,7 @@ patterns, and as many templates as there are patterns.
|
|||
When the syntax expander sees the invocation of a @code{syntax-rules} macro, it
|
||||
matches the expression against the patterns, in order, and rewrites the
|
||||
expression using the template from the first matching pattern. If no pattern
|
||||
matches, a syntax error is signalled.
|
||||
matches, a syntax error is signaled.
|
||||
|
||||
@subsubsection Patterns
|
||||
|
||||
|
|
|
|||
|
|
@ -550,7 +550,7 @@ matches the number of actual arguments against the formals in the
|
|||
various clauses, in order. The first matching clause is selected, the
|
||||
corresponding values from the actual parameter list are bound to the
|
||||
variable names in the clauses and the body of the clause is evaluated.
|
||||
If no clause matches, an error is signalled.
|
||||
If no clause matches, an error is signaled.
|
||||
|
||||
The syntax of the @code{case-lambda} form is defined in the following
|
||||
EBNF grammar. @dfn{Formals} means a formal argument list just like
|
||||
|
|
|
|||
|
|
@ -329,7 +329,7 @@ wait using the following procedures:
|
|||
|
||||
@deftypefn {C Function} int scm_c_prepare_to_wait_on_fd (int fd)
|
||||
Inform Guile that the current thread is about to sleep, and that if an
|
||||
asynchronous interrupt is signalled on this thread, Guile should wake up
|
||||
asynchronous interrupt is signaled on this thread, Guile should wake up
|
||||
the thread by writing a zero byte to @var{fd}. Returns zero if the
|
||||
prepare succeeded, or nonzero if the thread already has a pending async
|
||||
and that it should avoid waiting.
|
||||
|
|
@ -337,7 +337,7 @@ and that it should avoid waiting.
|
|||
|
||||
@deftypefn {C Function} int scm_c_prepare_to_wait_on_cond (scm_i_pthread_mutex_t *mutex, scm_i_pthread_cond_t *cond)
|
||||
Inform Guile that the current thread is about to sleep, and that if an
|
||||
asynchronous interrupt is signalled on this thread, Guile should wake up
|
||||
asynchronous interrupt is signaled on this thread, Guile should wake up
|
||||
the thread by acquiring @var{mutex} and signalling @var{cond}. The
|
||||
caller must already hold @var{mutex} and only drop it as part of the
|
||||
@code{pthread_cond_wait} call. Returns zero if the prepare succeeded,
|
||||
|
|
@ -574,7 +574,7 @@ waiting should be aborted. It can be either an integer as returned
|
|||
by @code{current-time} or a pair as returned by @code{gettimeofday}.
|
||||
When the waiting is aborted, @code{#f} is returned.
|
||||
|
||||
For standard mutexes (@code{make-mutex}), an error is signalled if the
|
||||
For standard mutexes (@code{make-mutex}), an error is signaled if the
|
||||
thread has itself already locked @var{mutex}.
|
||||
|
||||
For a recursive mutex (@code{make-recursive-mutex}), if the thread has
|
||||
|
|
@ -601,7 +601,7 @@ timeout.
|
|||
|
||||
@deffn {Scheme Procedure} unlock-mutex mutex
|
||||
@deffnx {C Function} scm_unlock_mutex (mutex)
|
||||
Unlock @var{mutex}. An error is signalled if @var{mutex} is not locked.
|
||||
Unlock @var{mutex}. An error is signaled if @var{mutex} is not locked.
|
||||
|
||||
``Standard'' and ``recursive'' mutexes can only be unlocked by the
|
||||
thread that locked them; Guile detects this situation and signals an
|
||||
|
|
@ -642,14 +642,14 @@ return @code{#f}.
|
|||
|
||||
@deffn {Scheme Procedure} wait-condition-variable condvar mutex [time]
|
||||
@deffnx {C Function} scm_wait_condition_variable (condvar, mutex, time)
|
||||
Wait until @var{condvar} has been signalled. While waiting,
|
||||
Wait until @var{condvar} has been signaled. While waiting,
|
||||
@var{mutex} is atomically unlocked (as with @code{unlock-mutex}) and
|
||||
is locked again when this function returns. When @var{time} is given,
|
||||
it specifies a point in time where the waiting should be aborted. It
|
||||
can be either a integer as returned by @code{current-time} or a pair
|
||||
as returned by @code{gettimeofday}. When the waiting is aborted,
|
||||
@code{#f} is returned. When the condition variable has in fact been
|
||||
signalled, @code{#t} is returned. The mutex is re-locked in any case
|
||||
signaled, @code{#t} is returned. The mutex is re-locked in any case
|
||||
before @code{wait-condition-variable} returns.
|
||||
|
||||
When an async is activated for a thread that is blocked in a call to
|
||||
|
|
|
|||
|
|
@ -30,7 +30,7 @@ call. There is no provision for resetting the counter.
|
|||
@deffn {Scheme Procedure} symbol-set! o s v
|
||||
@deffnx {C Function} scm_symbol_set_x (o, s, v)
|
||||
Find the symbol in @var{obarray} whose name is @var{string}, and rebind
|
||||
it to @var{value}. An error is signalled if @var{string} is not present
|
||||
it to @var{value}. An error is signaled if @var{string} is not present
|
||||
in @var{obarray}.
|
||||
@end deffn
|
||||
|
||||
|
|
@ -49,7 +49,7 @@ value.
|
|||
Look up in @var{obarray} the symbol whose name is @var{string}, and
|
||||
return the value to which it is bound. If @var{obarray} is @code{#f},
|
||||
use the global symbol table. If @var{string} is not interned in
|
||||
@var{obarray}, an error is signalled.
|
||||
@var{obarray}, an error is signaled.
|
||||
@end deffn
|
||||
|
||||
@deffn {Scheme Procedure} unintern-symbol o s
|
||||
|
|
@ -88,7 +88,7 @@ table; instead, simply return @code{#f}.
|
|||
Read a form from @var{port} (standard input by default), and evaluate it
|
||||
(memoizing it in the process) in the top-level environment. If no data
|
||||
is left to be read from @var{port}, an @code{end-of-file} error is
|
||||
signalled.
|
||||
signaled.
|
||||
@end deffn
|
||||
|
||||
@deffn {Scheme Procedure} sloppy-member x lst
|
||||
|
|
|
|||
|
|
@ -601,7 +601,7 @@ executed. Locking a mutex while in that section ensures that no other
|
|||
thread will start executing it, blocking asyncs ensures that no
|
||||
asynchronous code enters the section again from the current thread, and
|
||||
the error checking of Guile mutexes guarantees that an error is
|
||||
signalled when the current thread accidentally reenters the critical
|
||||
signaled when the current thread accidentally reenters the critical
|
||||
section via recursive function calls.
|
||||
|
||||
Guile provides two mechanisms to support critical sections as outlined
|
||||
|
|
|
|||
|
|
@ -2242,7 +2242,7 @@ Install or report the signal handler for a specified signal.
|
|||
of variables such as @code{SIGINT}.
|
||||
|
||||
If @var{handler} is omitted, @code{sigaction} returns a pair: the
|
||||
@acronym{CAR} is the current signal hander, which will be either an
|
||||
@acronym{CAR} is the current signal handler, which will be either an
|
||||
integer with the value @code{SIG_DFL} (default action) or
|
||||
@code{SIG_IGN} (ignore), or the Scheme procedure which handles the
|
||||
signal, or @code{#f} if a non-Scheme procedure handles the signal.
|
||||
|
|
@ -2262,9 +2262,9 @@ call to @code{sigaction} is used.
|
|||
following (where provided by the system), or @code{0} for none.
|
||||
|
||||
@defvar SA_NOCLDSTOP
|
||||
By default, @code{SIGCHLD} is signalled when a child process stops
|
||||
By default, @code{SIGCHLD} is signaled when a child process stops
|
||||
(ie.@: receives @code{SIGSTOP}), and when a child process terminates.
|
||||
With the @code{SA_NOCLDSTOP} flag, @code{SIGCHLD} is only signalled
|
||||
With the @code{SA_NOCLDSTOP} flag, @code{SIGCHLD} is only signaled
|
||||
for termination, not stopping.
|
||||
|
||||
@code{SA_NOCLDSTOP} has no effect on signals other than
|
||||
|
|
@ -2354,7 +2354,7 @@ Get or set the periods programmed in certain system timers.
|
|||
These timers have two settings. The first setting, the interval, is the
|
||||
value at which the timer will be reset when the current timer expires.
|
||||
The second is the current value of the timer, indicating when the next
|
||||
expiry will be signalled.
|
||||
expiry will be signaled.
|
||||
|
||||
@var{which_timer} is one of the following values:
|
||||
|
||||
|
|
@ -3123,7 +3123,7 @@ The following procedures are used to search the service database:
|
|||
Look up a network service by name or by service number, and return a
|
||||
network service object. The @var{protocol} argument specifies the name
|
||||
of the desired protocol; if the protocol found in the network service
|
||||
database does not match this name, a system error is signalled.
|
||||
database does not match this name, a system error is signaled.
|
||||
|
||||
The @code{getserv} procedure will take either a service name or number
|
||||
as its first argument; if given no arguments, it behaves like
|
||||
|
|
|
|||
|
|
@ -361,7 +361,7 @@ lists are @code{circular-list?}.
|
|||
@deffn {Scheme Procedure} null-list? lst
|
||||
Return @code{#t} if @var{lst} is the empty list @code{()}, @code{#f}
|
||||
otherwise. If something else than a proper or circular list is passed
|
||||
as @var{lst}, an error is signalled. This procedure is recommended
|
||||
as @var{lst}, an error is signaled. This procedure is recommended
|
||||
for checking for the end of a list in contexts where dotted lists are
|
||||
not allowed.
|
||||
@end deffn
|
||||
|
|
@ -2297,7 +2297,7 @@ a new owner for @var{mutex} different than the current thread.
|
|||
Unlock @var{mutex}, optionally specifying a condition variable
|
||||
@var{condition-variable} on which to wait, either indefinitely or,
|
||||
optionally, until the time object @var{timeout} has passed, to be
|
||||
signalled.
|
||||
signaled.
|
||||
@end defun
|
||||
|
||||
|
||||
|
|
@ -3638,7 +3638,7 @@ characters for traditional @code{getopt} short options and strings for
|
|||
@var{required-arg?} and @var{optional-arg?} are mutually exclusive;
|
||||
one or both must be @code{#f}. If @var{required-arg?}, the option
|
||||
must be followed by an argument on the command line, such as
|
||||
@samp{--opt=value} for long options, or an error will be signalled.
|
||||
@samp{--opt=value} for long options, or an error will be signaled.
|
||||
If @var{optional-arg?}, an argument will be taken if available.
|
||||
|
||||
@var{processor} is a procedure that takes at least 3 arguments, called
|
||||
|
|
@ -3789,7 +3789,7 @@ The port remains open, and further attempts to read it (by
|
|||
end-of-file object. If an end of file is encountered after the
|
||||
beginning of an object's external representation, but the external
|
||||
representation is incomplete and therefore not parsable, an error is
|
||||
signalled.
|
||||
signaled.
|
||||
|
||||
The @var{port} argument may be omitted, in which case it defaults to the
|
||||
value returned by @code{(current-input-port)}. It is an error to read
|
||||
|
|
@ -3935,7 +3935,7 @@ stream, its promise will be forced.
|
|||
|
||||
@deffn {Scheme Procedure} stream-car stream
|
||||
Returns the object stored in the @code{stream-car} of @var{stream}. An
|
||||
error is signalled if the argument is not a @code{stream-pair}. This
|
||||
error is signaled if the argument is not a @code{stream-pair}. This
|
||||
causes the @var{object-expr} passed to @code{stream-cons} to be
|
||||
evaluated if it had not yet been; the value is cached in case it is
|
||||
needed again.
|
||||
|
|
@ -3943,7 +3943,7 @@ needed again.
|
|||
|
||||
@deffn {Scheme Procedure} stream-cdr stream
|
||||
Returns the stream stored in the @code{stream-cdr} of @var{stream}. An
|
||||
error is signalled if the argument is not a @code{stream-pair}.
|
||||
error is signaled if the argument is not a @code{stream-pair}.
|
||||
@end deffn
|
||||
|
||||
@deffn {Scheme Syntax} stream-lambda formals body @dots{}
|
||||
|
|
|
|||
|
|
@ -956,7 +956,7 @@ of the values in the frame are returned to the prompt handler. This
|
|||
corresponds to a tail application of @code{abort-to-prompt}.
|
||||
|
||||
If no prompt can be found in the dynamic environment with the given tag,
|
||||
an error is signalled. Otherwise all arguments are passed to the
|
||||
an error is signaled. Otherwise all arguments are passed to the
|
||||
prompt's handler, along with the captured continuation, if necessary.
|
||||
|
||||
If the prompt's handler can be proven to not reference the captured
|
||||
|
|
|
|||
|
|
@ -1310,7 +1310,7 @@ Return the given request header, or @var{default} if none was present.
|
|||
A helper routine to determine the absolute URI of a request, using the
|
||||
@code{host} header and the default scheme, host and port. If there is
|
||||
no default scheme and the URI is not itself absolute, an error is
|
||||
signalled.
|
||||
signaled.
|
||||
@end deffn
|
||||
|
||||
@node Responses
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@ mark_box (SCM b)
|
|||
}
|
||||
|
||||
|
||||
/* Print a textual represenation of the smob to a given port. */
|
||||
/* Print a textual representation of the smob to a given port. */
|
||||
static int
|
||||
print_box (SCM b, SCM port, scm_print_state *pstate)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@ mark_box (SCM b)
|
|||
}
|
||||
|
||||
|
||||
/* Print a textual represenation of the smob to a given port. */
|
||||
/* Print a textual representation of the smob to a given port. */
|
||||
static int
|
||||
print_box (SCM b, SCM port, scm_print_state *pstate)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@ mark_box (SCM b)
|
|||
}
|
||||
|
||||
|
||||
/* Print a textual represenation of the smob to a given port. */
|
||||
/* Print a textual representation of the smob to a given port. */
|
||||
static int
|
||||
print_box (SCM b, SCM port, scm_print_state *pstate)
|
||||
{
|
||||
|
|
@ -55,7 +55,7 @@ print_box (SCM b, SCM port, scm_print_state *pstate)
|
|||
}
|
||||
|
||||
|
||||
/* This defines the primitve `make-box', which returns a new smob of
|
||||
/* This defines the primitive `make-box', which returns a new smob of
|
||||
type `box', initialized to `#f'. */
|
||||
static SCM
|
||||
#define FUNC_NAME "make-box"
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@ mark_box (SCM b)
|
|||
}
|
||||
|
||||
|
||||
/* Print a textual represenation of the smob to a given port. */
|
||||
/* Print a textual representation of the smob to a given port. */
|
||||
static int
|
||||
print_box (SCM b, SCM port, scm_print_state *pstate)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -63,7 +63,7 @@
|
|||
(lambda ()
|
||||
;; Evaluate the expression in the safe environment.
|
||||
(eval expr safe-module)
|
||||
;; ... and read the next expression if no error occured.
|
||||
;; ... and read the next expression if no error occurred.
|
||||
(lp (read port)))
|
||||
|
||||
;; Handle exceptions. This procedure will be called when an
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ installed and available with the standard installation prefix
|
|||
|
||||
** simple-hello.scm
|
||||
|
||||
The simplest "Hello World!" program for Guile. Run it like this:
|
||||
The simplest "Hello World!" program for Guile. Run it like this:
|
||||
|
||||
$ guile -s simple-hello.scm
|
||||
|
||||
|
|
|
|||
|
|
@ -5,7 +5,7 @@
|
|||
;;; This is the famous Hello-World-program, written for Guile. It is a
|
||||
;;; little bit enhanced in that it understands the command line options
|
||||
;;; `--help' (-h) and `--version' (-v), which print a short usage
|
||||
;;; decription or version information, respectively.
|
||||
;;; description or version information, respectively.
|
||||
|
||||
;;; Author: Martin Grabmueller
|
||||
;;; Date: 2001-05-29
|
||||
|
|
|
|||
|
|
@ -272,7 +272,7 @@
|
|||
(define (with-optimization level thunk)
|
||||
(thunk))
|
||||
|
||||
; Calls thunk1, and if thunk1 causes an error to be signalled, calls thunk2.
|
||||
; Calls thunk1, and if thunk1 causes an error to be signaled, calls thunk2.
|
||||
|
||||
(define (call-with-error-control thunk1 thunk2)
|
||||
(let ((eh (error-handler)))
|
||||
|
|
@ -21993,14 +21993,14 @@
|
|||
;
|
||||
; RS1 has an object. If the tag of RS1 is not 'tag1', or if the tag is
|
||||
; 'tag1' but the header byte of the object header is not 'tag2', then an
|
||||
; exception with code 'excode' is signalled. The exception call is set
|
||||
; exception with code 'excode' is signaled. The exception call is set
|
||||
; up to return to the first instruction of the emitted code.
|
||||
;
|
||||
; If RS1 is not RESULT then it is moved to RESULT before the exception
|
||||
; is signalled.
|
||||
; is signaled.
|
||||
;
|
||||
; If RS2/IMM is not #f, then it is a register or immediate that is moved
|
||||
; to ARGREG2 before the exception is signalled; it is an immediate iff
|
||||
; to ARGREG2 before the exception is signaled; it is an immediate iff
|
||||
; imm? = #t.
|
||||
;
|
||||
; RS1 must be a hardware register.
|
||||
|
|
|
|||
|
|
@ -272,7 +272,7 @@
|
|||
(define (with-optimization level thunk)
|
||||
(thunk))
|
||||
|
||||
; Calls thunk1, and if thunk1 causes an error to be signalled, calls thunk2.
|
||||
; Calls thunk1, and if thunk1 causes an error to be signaled, calls thunk2.
|
||||
|
||||
(define (call-with-error-control thunk1 thunk2)
|
||||
(let ((eh (error-handler)))
|
||||
|
|
|
|||
|
|
@ -272,7 +272,7 @@
|
|||
(define (with-optimization level thunk)
|
||||
(thunk))
|
||||
|
||||
; Calls thunk1, and if thunk1 causes an error to be signalled, calls thunk2.
|
||||
; Calls thunk1, and if thunk1 causes an error to be signaled, calls thunk2.
|
||||
|
||||
(define (call-with-error-control thunk1 thunk2)
|
||||
(let ((eh (error-handler)))
|
||||
|
|
@ -21993,14 +21993,14 @@
|
|||
;
|
||||
; RS1 has an object. If the tag of RS1 is not 'tag1', or if the tag is
|
||||
; 'tag1' but the header byte of the object header is not 'tag2', then an
|
||||
; exception with code 'excode' is signalled. The exception call is set
|
||||
; exception with code 'excode' is signaled. The exception call is set
|
||||
; up to return to the first instruction of the emitted code.
|
||||
;
|
||||
; If RS1 is not RESULT then it is moved to RESULT before the exception
|
||||
; is signalled.
|
||||
; is signaled.
|
||||
;
|
||||
; If RS2/IMM is not #f, then it is a register or immediate that is moved
|
||||
; to ARGREG2 before the exception is signalled; it is an immediate iff
|
||||
; to ARGREG2 before the exception is signaled; it is an immediate iff
|
||||
; imm? = #t.
|
||||
;
|
||||
; RS1 must be a hardware register.
|
||||
|
|
|
|||
|
|
@ -757,7 +757,7 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM env)
|
|||
Also note that the specific environment during expansion of init
|
||||
expressions here needs to coincide with the environment when psyntax
|
||||
expands. A lot of effort for something that is only used in the bootstrap
|
||||
expandr, you say? Yes. Yes it is.
|
||||
expander, you say? Yes. Yes it is.
|
||||
*/
|
||||
|
||||
vars = SCM_EOL;
|
||||
|
|
@ -928,7 +928,7 @@ check_bindings (const SCM bindings, const SCM expr)
|
|||
|
||||
/* The bindings, which must have the format ((v1 i1) (v2 i2) ... (vn in)), are
|
||||
* transformed to the lists (vn .. v2 v1) and (i1 i2 ... in). If a duplicate
|
||||
* variable name is detected, an error is signalled. */
|
||||
* variable name is detected, an error is signaled. */
|
||||
static void
|
||||
transform_bindings (const SCM bindings, const SCM expr,
|
||||
SCM *const names, SCM *const vars, SCM *const initptr)
|
||||
|
|
|
|||
|
|
@ -1163,7 +1163,7 @@ SCM_DEFINE (scm_primitive_load_path, "primitive-load-path", 0, 0, 1,
|
|||
"depending on the optional second argument,\n"
|
||||
"@var{exception_on_not_found}. If it is @code{#f}, @code{#f}\n"
|
||||
"will be returned. If it is a procedure, it will be called\n"
|
||||
"with no arguments. Otherwise an error is signalled.")
|
||||
"with no arguments. Otherwise an error is signaled.")
|
||||
#define FUNC_NAME s_scm_primitive_load_path
|
||||
{
|
||||
SCM filename, exception_on_not_found;
|
||||
|
|
|
|||
|
|
@ -330,7 +330,7 @@ SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0,
|
|||
"Look up a network service by name or by service number, and return a\n"
|
||||
"network service object. The @var{protocol} argument specifies the name\n"
|
||||
"of the desired protocol; if the protocol found in the network service\n"
|
||||
"database does not match this name, a system error is signalled.\n\n"
|
||||
"database does not match this name, a system error is signaled.\n\n"
|
||||
"The @code{getserv} procedure will take either a service name or number\n"
|
||||
"as its first argument; if given no arguments, it behaves like\n"
|
||||
"@code{getservent} (see below).")
|
||||
|
|
|
|||
|
|
@ -285,7 +285,7 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
|
|||
"of variables such as @code{SIGINT}.\n\n"
|
||||
"If @var{handler} is omitted, @code{sigaction} returns a pair: the\n"
|
||||
"CAR is the current\n"
|
||||
"signal hander, which will be either an integer with the value @code{SIG_DFL}\n"
|
||||
"signal handler, which will be either an integer with the value @code{SIG_DFL}\n"
|
||||
"(default action) or @code{SIG_IGN} (ignore), or the Scheme procedure which\n"
|
||||
"handles the signal, or @code{#f} if a non-Scheme procedure handles the\n"
|
||||
"signal. The CDR contains the current @code{sigaction} flags for the handler.\n\n"
|
||||
|
|
|
|||
|
|
@ -1393,7 +1393,7 @@ SCM_DEFINE (scm_ucs_range_to_char_set, "ucs-range->char-set", 2, 2, 0,
|
|||
"character codes lie in the half-open range\n"
|
||||
"[@var{lower},@var{upper}).\n"
|
||||
"\n"
|
||||
"If @var{error} is a true value, an error is signalled if the\n"
|
||||
"If @var{error} is a true value, an error is signaled if the\n"
|
||||
"specified range contains characters which are not valid\n"
|
||||
"Unicode code points. If @var{error} is @code{#f},\n"
|
||||
"these characters are silently left out of the resulting\n"
|
||||
|
|
@ -1415,7 +1415,7 @@ SCM_DEFINE (scm_ucs_range_to_char_set_x, "ucs-range->char-set!", 4, 0, 0,
|
|||
"character codes lie in the half-open range\n"
|
||||
"[@var{lower},@var{upper}).\n"
|
||||
"\n"
|
||||
"If @var{error} is a true value, an error is signalled if the\n"
|
||||
"If @var{error} is a true value, an error is signaled if the\n"
|
||||
"specified range contains characters which are not contained in\n"
|
||||
"the implemented character range. If @var{error} is @code{#f},\n"
|
||||
"these characters are silently left out of the resulting\n"
|
||||
|
|
|
|||
|
|
@ -1170,7 +1170,7 @@ SCM_DEFINE (scm_unlock_mutex, "unlock-mutex", 1, 0, 0, (SCM mutex),
|
|||
"Unlocks @var{mutex}. The calling thread must already hold\n"
|
||||
"the lock on @var{mutex}, unless the mutex was created with\n"
|
||||
"the @code{allow-external-unlock} option; otherwise an error\n"
|
||||
"will be signalled.")
|
||||
"will be signaled.")
|
||||
#define FUNC_NAME s_scm_unlock_mutex
|
||||
{
|
||||
struct scm_mutex *m;
|
||||
|
|
@ -1392,14 +1392,14 @@ timed_wait (enum scm_mutex_kind kind, struct scm_mutex *m, struct scm_cond *c,
|
|||
|
||||
SCM_DEFINE (scm_timed_wait_condition_variable, "wait-condition-variable", 2, 1, 0,
|
||||
(SCM cond, SCM mutex, SCM timeout),
|
||||
"Wait until condition variable @var{cv} has been signalled. While waiting, "
|
||||
"Wait until condition variable @var{cv} has been signaled. While waiting, "
|
||||
"mutex @var{mx} is atomically unlocked (as with @code{unlock-mutex}) and "
|
||||
"is locked again when this function returns. When @var{t} is given, "
|
||||
"it specifies a point in time where the waiting should be aborted. It "
|
||||
"can be either a integer as returned by @code{current-time} or a pair "
|
||||
"as returned by @code{gettimeofday}. When the waiting is aborted the "
|
||||
"mutex is locked and @code{#f} is returned. When the condition "
|
||||
"variable is in fact signalled, the mutex is also locked and @code{#t} "
|
||||
"variable is in fact signaled, the mutex is also locked and @code{#t} "
|
||||
"is returned. ")
|
||||
#define FUNC_NAME s_scm_timed_wait_condition_variable
|
||||
{
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@
|
|||
# By default, this macro will search for the latest stable version of
|
||||
# Guile (e.g. 3.0), falling back to the previous stable version
|
||||
# (e.g. 2.2) if it is available. If no guile-@var{VERSION}.pc file is
|
||||
# found, an error is signalled. The found version is stored in
|
||||
# found, an error is signaled. The found version is stored in
|
||||
# @var{GUILE_EFFECTIVE_VERSION}.
|
||||
#
|
||||
# If @code{GUILE_PROGS} was already invoked, this macro ensures that the
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -324,7 +324,7 @@
|
|||
(mutex-unlock! m2)))))
|
||||
(thread-start! t)
|
||||
(mutex-unlock! m1 c)
|
||||
;; At this point the thread signalled that it has both m1 and
|
||||
;; At this point the thread signaled that it has both m1 and
|
||||
;; m2, and it will go to try to lock m2 again. We wait for it
|
||||
;; to block trying to acquire m2 by sleeping a little bit and
|
||||
;; then unblock it by unlocking m2 from here.
|
||||
|
|
@ -333,7 +333,7 @@
|
|||
(thread-join! t)
|
||||
(eq? (mutex-state m2) 'not-abandoned))))
|
||||
|
||||
(pass-if "mutex unlock is true when condition is signalled"
|
||||
(pass-if "mutex unlock is true when condition is signaled"
|
||||
(let* ((m (make-mutex 'mutex-unlock-3))
|
||||
(c (make-condition-variable 'mutex-unlock-3))
|
||||
(t (make-thread (lambda ()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue