Subject: Fix faulty example of SRFI-31 in the manual.
From: Yuval Langer <[email-masked]>
To: [email-masked]
Date: Tue, 7 Jan 2025 01:54:43 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

From aac75ef98ca6b008fd7d16f42dcb90d22b8ed43c Mon Sep 17 00:00:00 2001
From: Yuval Langer <[email-masked]>
Date: Fri, 3 Jan 2025 06:37:43 +0200
Subject: [PATCH] Fix faulty SRFI-31 example.

---
 doc/ref/srfi-modules.texi | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/doc/ref/srfi-modules.texi b/doc/ref/srfi-modules.texi
index d77bc1c90..1373409f0 100644
--- a/doc/ref/srfi-modules.texi
+++ b/doc/ref/srfi-modules.texi
@@ -3367,8 +3367,9 @@ The second syntax can be used to create anonymous recursive functions:
 
 @lisp
   guile> (define tmp (rec (display-n item n)
-                       (if (positive? n)
-                           (begin (display n) (display-n (- n 1))))))
+                       (when (positive? n)
+                           (display item)
+                           (display-n item (- n 1)))))
   guile> (tmp 42 3)
   424242
   guile>
-- 
2.47.1