From 0b501477f937718a89a2783409e5b9327a03f800 Mon Sep 17 00:00:00 2001 From: Yuval Langer 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