Fun with Racket macros: capturing while