Brilliant. This is exactly what I needed, thank you.
On Wed, Aug 15, 2018 at 1:31 AM, gfb <g...@cs.toronto.edu> wrote: > 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. > -- 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.
