r7rs-small-texinfo

commit 33bfef54b5db04f71f85696504df93220e2ed9ea
parent 79806c8c2c4bb24772127f0da4f3c1a3caa923a8
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Wed, 31 Jan 2024 16:21:20 +0200

Wrap some long lines for the PDF output.

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

1 file changed, 12 insertions(+), 7 deletions(-)
diff --git a/doc/r7rs-small/r7rs-small.texinfo b/doc/r7rs-small/r7rs-small.texinfo
@@ -1703,7 +1703,9 @@ are returned. Each binding of a @svar{variable} has @svar{body} as its region.
 (let ((x 2) (y 3))
   (let ((x 7)
         (z (+ x y)))
-    (* z x)))                   @result{}  35 See also ``named let,'' section 4.2.4.
+    (* z x)))
+    @result{}
+    35 See also ``named let,'' section 4.2.4.
 
 @end example
 
@@ -1896,7 +1898,9 @@ input and output.
             (+ x 1)))              @result{}  6
 
 (begin (display "4 plus 1 equals ")
-       (display (+ 4 1)))      @result{}  unspecified and prints 4 plus 1 equals 5
+       (display (+ 4 1)))
+       @result{}
+       unspecified and prints 4 plus 1 equals 5
 
 @end example
 
@@ -6897,8 +6901,9 @@ thunk.
   (display "something went wrong\n"))
  (lambda ()
   (+ 1 (raise 'an-error))))
-  prints  something went wrong After printing, the second example then raises another
-exception.
+  prints
+  something went wrong After printing,
+  the second example then raises another exception.
 
 @end example
 @end deffn
@@ -7079,15 +7084,15 @@ eval to allow other objects.
 @example
 
 (eval '(* 7 3) (environment '(scheme base)))
-                                                   @result{}  21
+@result{}  21
 
 (let ((f (eval '(lambda (f x) (f x x))
                (null-environment 5))))
   (f + 10))
-                                                   @result{}  20
+  @result{}  20
 (eval '(define foo 32)
       (environment '(scheme base)))
-                                                   @result{}  error is signaled
+      @result{}  error is signaled
 
 @end example
 @end deffn