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

doc: Rephrase documentation of 'thunk?'.

Browse source 
Fixes <https://bugs.gnu.org/41353>.
Reported by Jan Synacek <jsynacek@redhat.com>.

* doc/ref/api-procedures.texi (Procedure Properties): Rephrase
documentation of 'thunk?'.
* libguile/procs.c (scm_thunk_p): Likewise.
This commit is contained in:
Ludovic Courtès 2020-05-27 22:34:49 +02:00
parent e7ad7eb90b
commit 9c03e44dcf
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
doc/ref/api-procedures.texi
View file

@ -730,8 +730,8 @@ Return @code{#t} if @var{obj} is a procedure.
@deffn {Scheme Procedure} thunk? obj
@deffnx {C Function} scm_thunk_p (obj)
Return @code{#t} if @var{obj} is a thunk---a procedure that does
not accept arguments.
Return @code{#t} if @var{obj} is a procedure that can be called with
zero arguments.
@end deffn
@cindex procedure properties

5
libguile/procs.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-1997,1999-2001,2006,2008-2013,2017-2018
/* Copyright 1995-1997,1999-2001,2006,2008-2013,2017-2018,2020
Free Software Foundation, Inc.
This file is part of Guile.
@ -58,7 +58,8 @@ SCM_DEFINE (scm_procedure_p, "procedure?", 1, 0, 0,
SCM_DEFINE (scm_thunk_p, "thunk?", 1, 0, 0,
(SCM obj),
"Return @code{#t} if @var{obj} is a thunk.")
"Return @code{#t} if @var{obj} is a procedure that can be "
"called with zero arguments.")
#define FUNC_NAME s_scm_thunk_p
{
int req, opt, rest;