(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))])))