You're losing the binding information by doing syntax->datum. Here's a
quick change to get you unstuck:
...
(only-in racket/list partition flatten append-map)))
; Include append-map
...
(partition (syntax-parser [(flag _) (syntax-e #'flag)])
(syntax->list #'(item ...)))])
(define flat-mand (append-map (syntax-parser [(_ (kw contr))
(list #'kw #'contr)])
mandatory))
(define flat-opt (append-map (syntax-parser [(_ (kw contr))
(list #'kw #'contr)])
optional))
...
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
