0. #lang racket
1. (require (prefix-in h: html))
2.  
3. (define (extract-tag-content tag?)
4.   (define (extract-selected-tag-data element-content)
5.     (match element-content
6.       [(struct h:html-full (attributes content)) (apply append (map extract-pcdata content))]
7.       [(? tag? (struct h:html-element (attributes))) (get-content-if-named attributes)]
8.       [(struct h:html-element (attributes)) null])))
9.  
10. (extract-tag-content h:meta?)

=>

eval:2:0: begin (possibly implicit): no expression after a

sequence of internal definitions

in: (begin (define (extract-selected-tag-data

element-content) (match element-content ((struct h:html-full

(attributes content)) (apply append (map extract-pcdata

content))) ((? tag? (struct h:html-element (attributes)))

(get-content-if-named attributes)) (...

extract-tag-content: undefined;

cannot reference an identifier before its definition

in module: 'm