On Mon, Apr 18, 2011 at 2:42 PM, Jon Rafkind <[email protected]> wrote: > (with-syntax ([id (datum->syntax (car (syntax->list #'(arg ...))) > (string->symbol > (let ([arg (syntax-e #'arg)] > ...) > id-rename)) > (car (syntax->list #'(arg > ...))))])
This can all be replaced by: (with-syntax ([id (format-id stx (let ([arg (syntax-e #'arg)] ..) id-rename))]) (begin body ...)) -- sam th [email protected] _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/users
