run-with-idle-timer and sit-for/sleep-for

[Lennart Borgman (gmail)]

I would like an idle timer to run during a sit-for:

 (defun temp-idle()
   (message "temp-idle"))

 (defun temp()
   (interactive)
   (message "temp a")
   (run-with-idle-timer 1 nil 'temp-idle)
   (sit-for 4)
   (message "temp b"))

This does not work, but it would be great for testing. Is there any way 
to get it to work?