Backquote question

;;; I have the following function that wraps a form in a macrolet:
(defun wrap-2 (form)
  `(macrolet ((foo (macro-arg)
                `(bar ,macro-arg)))
     ,form)))

;;; If I call it like this (wrap-2 'some-form) I get:
(macrolet ((foo (macro-arg)
             `(bar ,macro-arg)))
  some-form)

;;; But I also have the following function that wraps a form:
(defun wrap-1 (form)
  `(bar ,form))

;;; How can I call wrap-1 from inside wrap-2 so that the
;;; expansion resulting from a call to wrap-2 remains the same?