[Guile-commits] 04/06: doc: Rephrase documentation of 'thunk?'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guile.

commit 9c03e44dcfc118c37d28bb948f4d255c7b755d96
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed May 27 22:34:49 2020 +0200

    doc: Rephrase documentation of 'thunk?'.
    
    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.
---
 doc/ref/api-procedures.texi | 4 ++--
 libguile/procs.c            | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/doc/ref/api-procedures.texi b/doc/ref/api-procedures.texi
index 461112c..81d2cfc 100644
--- a/doc/ref/api-procedures.texi
+++ b/doc/ref/api-procedures.texi
@@ -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
diff --git a/libguile/procs.c b/libguile/procs.c
index 1b5aff4..6a2860e 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -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;