(define (generate-double-tag-function tag-name) (lambda (contents . attributes) (double-tag tag-name contents attributes))) (define (generate-single-tag-function tag-name) (lambda attributes (single-tag tag-name attributes)))