r7rs-small-texinfo

commit 85eb56b2706884b3020cfa6896fc57254d740254
parent 5045de8d8528acb4abab2d83ab11e148735efbca
Author: Wolfgang Corcoran-Mathe <wcm@sigwinch.xyz>
Date:   Wed,  7 Feb 2024 14:34:31 -0500

Replace simple-let example (errata).

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

1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/doc/r7rs-small/macros.texinfo b/doc/r7rs-small/macros.texinfo
@@ -399,14 +399,9 @@ being able to catch syntax errors with exception handlers or guards.
 @lisp
 (define-syntax simple-let
   (syntax-rules ()
-    ((_ (head ... ((x . y) val) . tail)
-        body1 body2 ...)
-     (syntax-error
-      "expected an identifier but got"
-      (x . y)))
-    ((_ ((name val) ...) body1 body2 ...)
-     ((lambda (name ...) body1 body2 ...)
-       val ...))))
+    ((simple-let ((x . y) val) body1 body2 ...)
+     (syntax-error "expected an identifier" (x . y)))
+    ((simple-let (name val) body1 body2 ...)
 @end lisp
 
 @end deffn