(defun bar (function)
(foo (byte-compile `(lambda () (,function)))))