From 9c03e44dcfc118c37d28bb948f4d255c7b755d96 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 27 May 2020 22:34:49 +0200 Subject: [PATCH] doc: Rephrase documentation of 'thunk?'. Fixes . Reported by Jan Synacek . * 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 461112c8a..81d2cfc2d 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 1b5aff430..6a2860e6a 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;