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