(module infix-stx mzscheme (require-for-syntax "infix.ss") (provide infix) ;; document me! (define-syntax (infix stx) (syntax-case stx () [(_ x ...) (begin (expression->code (parse-expression (token-list->producer (syntax->token-list (syntax/loc stx (x ...))))) stx))])))