r7rs-small-texinfo

commit 488eeb1854666d4968b3bf2cc361e378606c3afc
parent b662393121d2084f252e7054d32fd50a5df60b45
Author: Wolfgang Corcoran-Mathe <wcm@sigwinch.xyz>
Date:   Wed, 31 Jan 2024 20:33:23 -0500

Use @example and @r instead of @display with @code tags.

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

1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/doc/r7rs-small/r7rs-small.texinfo b/doc/r7rs-small/r7rs-small.texinfo
@@ -1344,10 +1344,10 @@ constructs}) will be evaluated sequentially in the extended environment. The
 results of the last expression in the body will be returned as the results
 of the procedure call.
 
-@display
-@code{((lambda (x) (+ x x))} @result{} a procedure
-@code{((lambda (x) (+ x x)) 4)} @result{} @code{8}
-@end display
+@example
+((lambda (x) (+ x x)) @result{} @r{a procedure}
+((lambda (x) (+ x x)) 4) @result{} 8
+@end example
 
 @example
 (define reverse-subtract
@@ -1441,14 +1441,14 @@ expression or else globally. The result of the @code{set!} expression is
 unspecified.
 @end deffn
 
-@display
+@example
 
-@code{(define x 2)}
-@code{(+ x 1)      @result{} 3}
-@code{(set! x 4)   @result{}} unspecified
-@code{(+ x 1)      @result{} 5}
+(define x 2)
+(+ x 1)      @result{} 3
+(set! x 4)   @result{} @r{unspecified}
+(+ x 1)      @result{} 5
 
-@end display
+@end example
 
 @node Inclusion
 @subsection Inclusion
@@ -1660,14 +1660,14 @@ expressions are evaluated in order. The result of the @code{when} expression
 is unspecified.
 @end deffn
 
-@display
+@example
 
-@code{(when (= 1 1.0)}
-@code{  (display "1")}
-@code{  (display "2"))} @result{} unspecified
-  @print{@code{12}}
+(when (= 1 1.0)
+  (display "1")
+  (display "2")) @result{} @r{unspecified}
+  @print{12}
 
-@end display
+@end example
 
 @deffn syntax unless @svar{test} @svar{expression@sub{1}} @svar{expression@sub{2}}@dots{}
 
@@ -1680,9 +1680,9 @@ expression is unspecified.
 
 @display
 
-@code{(unless (= 1 1.0)}
-@code{  (display "1")}
-@code{  (display "2"))} @result{} unspecified
+(unless (= 1 1.0)
+  (display "1")
+  (display "2")) @result{} @r{unspecified}
   @print{nothing}
 
 @end display