mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

(scm_values): Added texinfo markup.

Browse source
This commit is contained in:
Martin Grabmüller 2001-02-17 11:24:30 +00:00
parent 03ba3d5b68
commit 647e35e27c
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/values.c
View file

@ -77,10 +77,10 @@ print_values (SCM obj, SCM pwps)
SCM_DEFINE (scm_values, "values", 0, 0, 1, SCM_DEFINE (scm_values, "values", 0, 0, 1,
(SCM args), (SCM args),
"Delivers all of its arguments to its continuation. Except for\n" "Delivers all of its arguments to its continuation. Except for\n"
"continuations created by the `call-with-values' procedure, all\n" "continuations created by the @code{call-with-values} procedure,\n"
"continuations take exactly one value. The effect of passing no\n" "all continuations take exactly one value. The effect of\n"
"value or more than one value to continuations that were not\n" "passing no value or more than one value to continuations that\n"
"created by call-with-values is unspecified.") "were not created by @code{call-with-values} is unspecified.")
#define FUNC_NAME s_scm_values #define FUNC_NAME s_scm_values
{ {
long n; long n;
@ -105,7 +105,7 @@ SCM_DEFINE (scm_call_with_values, "call-with-values", 2, 0, 0,
"continuation that, when passed some values, calls the\n" "continuation that, when passed some values, calls the\n"
"@var{consumer} procedure with those values as arguments. The\n" "@var{consumer} procedure with those values as arguments. The\n"
"continuation for the call to @var{consumer} is the continuation\n" "continuation for the call to @var{consumer} is the continuation\n"
"of the call to call-with-values.\n\n" "of the call to @code{call-with-values}.\n\n"
"@example\n" "@example\n"
"(call-with-values (lambda () (values 4 5))\n" "(call-with-values (lambda () (values 4 5))\n"
" (lambda (a b) b))\n" " (lambda (a b) b))\n"