(define-syntax @1
  (lambda (stx)
    (syntax-case stx ()
      ((macro body body* ...)
       (with-syntax ((it (datum->syntax #'macro 'it)))
     #'(lambda (it) body body* ... ))))))

(map (@1 (* it it)) '(1 2 3))