Sorry about the flood.  I have added `(newline)`, but the example
output did not have the literal newlines, so in this patch I have
added both the `(newline)` call and the example output newlines.


On Thu, Jan 9, 2025 at 6:01 AM Yuval Langer <yuval.lan...@gmail.com> wrote:
>
> Adding a `(newline)` in this patch.
>
> On Tue, Jan 7, 2025 at 3:23 AM Rob Browning <r...@defaultvalue.org> wrote:
> >
> > Yuval Langer <yuval.lan...@gmail.com> 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 55b689307972cd705a1b315cd62125429112d4c8 Mon Sep 17 00:00:00 2001
From: Yuval Langer <yuvallangeronther...@gmail.com>
Date: Fri, 3 Jan 2025 06:37:43 +0200
Subject: [PATCH] Fix faulty SRFI-31 example.

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

diff --git a/doc/ref/srfi-modules.texi b/doc/ref/srfi-modules.texi
index d77bc1c90..353867a82 100644
--- a/doc/ref/srfi-modules.texi
+++ b/doc/ref/srfi-modules.texi
@@ -3367,10 +3367,13 @@ 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
+  42
+  42
+  42
   guile>
 @end lisp
 
-- 
2.30.2

Reply via email to