On Sun, Jun 14, 2009 at 10:18 PM, Abdulaziz Ghuloum<[email protected]> wrote: > (define unbound? > (let ([empty-ctxt (car (generate-temporaries '(t)))]) > (lambda (id) > (let ([unbound-id > (datum->syntax empty-ctxt (syntax->datum id))]) > (free-identifier=? id unbound-id)))))
Why not just
(define (unbound? id)
(let ([unbound-id (datum->syntax #'dummy-ctxt (syntax->datum id))])
(free-identifier=? id unbound-id)))
?
