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 98a81d3c91b61eed53b1b3d242c8d4f1508e84e7 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 | 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
