r7rs-small-texinfo

commit a2108138ae0bb1ba17a66a18c4f349d681f84ec8
parent 6e9b20776a1c23ca0003e03db32268bfad60b8a8
Author: Wolfgang Corcoran-Mathe <wcm@sigwinch.xyz>
Date:   Sun,  4 Feb 2024 20:44:23 -0500

Replace @error{} in examples.

Since R7RS doesn't provide any more description than "error",
this macro looked wonky; "error->" is supposed to point to a
description of the problem.

Diffstat:
M
doc/r7rs-small/derived/dynamic-bindings.texinfo
 | 
2
+-
M
doc/r7rs-small/lexical-conventions.texinfo
 | 
2
+-
M
doc/r7rs-small/procedures/pairs-and-lists.texinfo
 | 
8
++++----

3 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/doc/r7rs-small/derived/dynamic-bindings.texinfo b/doc/r7rs-small/derived/dynamic-bindings.texinfo
@@ -77,7 +77,7 @@ procedure in the call chain explicitly.
 (radix 16)                @result{} @r{unspecified}
 
 (parameterize ((radix 0))
-  (f 12))                 @error{}
+  (f 12))                 @result{} @r{error}
 @end lisp
 
 @end deffn
diff --git a/doc/r7rs-small/lexical-conventions.texinfo b/doc/r7rs-small/lexical-conventions.texinfo
@@ -216,6 +216,6 @@ It is an error for a <program> or <library> to include circular references excep
 In particular, it is an error for quasiquote (section 4.2.8) to contain them.
 
 @lisp
-#1=(begin (display #\x) #1#) @result{} @error{}
+#1=(begin (display #\x) #1#) @result{} @r{error}
 @end lisp
 @end deffn
diff --git a/doc/r7rs-small/procedures/pairs-and-lists.texinfo b/doc/r7rs-small/procedures/pairs-and-lists.texinfo
@@ -141,7 +141,7 @@ error to take the car of the empty list.
 (car '(a b c))     @result{} a
 (car '((a) b c d)) @result{} (a)
 (car '(1 . 2))     @result{} 1
-(car '())          @error{}
+(car '())          @result{} @r{error}
 @end lisp
 @end deffn
 
@@ -153,7 +153,7 @@ error to take the cdr of the empty list.
 @lisp
 (cdr '((a) b c d)) @result{} (b c d)
 (cdr '(1 . 2))     @result{} 2
-(cdr '())          @error{}
+(cdr '())          @result{} @r{error}
 @end lisp
 @end deffn
 
@@ -165,7 +165,7 @@ Stores @var{obj} in the car field of @var{pair}.
 (define (f) (list 'not-a-constant-list))
 (define (g) '(constant-list))
 (set-car! (f) 3) @result{} @r{unspecified}
-(set-car! (g) 3) @error{}
+(set-car! (g) 3) @result{} @r{error}
 @end lisp
 @end deffn
 
@@ -349,7 +349,7 @@ The @code{list-set!} procedure stores @var{obj} in element @var{k} of
   (list-set! ls 2 'three)
   ls) @result{} (one two three)
 
-(list-set! '(0 1 2) 1 "oops") @error{}  ; constant list
+(list-set! '(0 1 2) 1 "oops") @result{} @r{error}  ; constant list
 @end lisp
 @end deffn