;; bug_syntax.scm
(define-syntax sect
(syntax-rules ()
((sect <name> <expr> ...)
(let ((sval '((name . <name>) (title . #f))))
(format #t "new sect: ~a\n" (quote <name>))
(format #t " sval= ~a\n\n" sval)
(assq-set! sval 'title "ABC")
(values)))))
(sect one (title "Section One"))
(sect two (title "Section Two"))
new sect: one
sval= ((name . one) (title . #f))
new sect: two
sval= ((name . two) (title . ABC))