1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

Fix example in syntax-rules doc

* doc/ref/api-macros.texi (Macros): Fix doc1 macro example

Fixes debbugs.gnu.org/65132.
This commit is contained in:
Ekaitz Zarraga 2023-08-07 20:23:42 +02:00 committed by Daniel Llorens
parent 8441d8ff56
commit 1e3b5390e3

View file

@ -229,10 +229,10 @@ Literals are used to match specific datums in an expression, like the use of
((cond1 test => fun) ((cond1 test => fun)
(let ((exp test)) (let ((exp test))
(if exp (fun exp) #f))) (if exp (fun exp) #f)))
((cond1 test exp exp* ...)
(if test (begin exp exp* ...)))
((cond1 else exp exp* ...) ((cond1 else exp exp* ...)
(begin exp exp* ...)))) (begin exp exp* ...))
((cond1 test exp exp* ...)
(if test (begin exp exp* ...)))))
(define (square x) (* x x)) (define (square x) (* x x))
(cond1 10 => square) (cond1 10 => square)