Subject: Re: bug#75413: Fix faulty example of SRFI-31 in the manual.

From: Yuval Langer <[email-masked]>
Date: Thu, 9 Jan 2025 06:01:54 +0200

Adding a `(newline)` in this patch.

On Tue, Jan 7, 2025 at 3:23 AM Rob Browning <[email-masked]> wrote:
>
> Yuval Langer <[email-masked]> writes:
>
> > 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>
>
> Looks good overall -- strictly speaking, might need a (newline) in there
> if we want the output to match (or the output could be changed).
>
> --
> Rob Browning
> rlb @defaultvalue.org and @debian.org
> GPG as of 2011-07-10 E6A9 DA3C C9FD 1FF8 C676 D2C4 C0F0 39E9 ED1B 597A
> GPG as of 2002-11-03 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 73A4
From 98a81d3c91b61eed53b1b3d242c8d4f1508e84e7 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..85dbc2b96 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) (newline)
+                         (display-n item (- n 1)))))
   guile> (tmp 42 3)
   424242
   guile>
-- 
2.30.2