r7rs-small-texinfo

commit 9a79284b02d34a4cfb44df8bc69067f272146dea
parent 62a74566151392f33aa02d4fcb1245c2c721f8e7
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 28 Jan 2024 21:05:48 +0200

Put code in example block.

Diffstat:
M
doc/r7rs-small/r7rs-small.texinfo
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/doc/r7rs-small/r7rs-small.texinfo b/doc/r7rs-small/r7rs-small.texinfo
@@ -9197,6 +9197,8 @@ length of the integration step.
 
 The value returned by integrate-system is an infinite stream of system states.
 
+@example
+
 (define (integrate-system system-derivative
                           initial-state
                           h)
@@ -9205,7 +9207,11 @@ The value returned by integrate-system is an infinite stream of system states.
               (cons initial-state
                     (delay (map-streams next
                                         states)))))
-      states))) The procedure runge-kutta-4 takes a function, f, that produces a system
+      states)))
+
+@end example
+
+The procedure runge-kutta-4 takes a function, f, that produces a system
 derivative from a system state. It produces a function that takes a system state and
 produces a new system state.