> > Can your version handle this?: > > > (let () > > (define-integrable (even? n) (or (zero? n) (m-odd? (- n 1)))) > > (define-integrable (odd? n) (not (m-even? n))) > > (define-syntax m-odd? (syntax-rules () ((_ x) (odd? x)))) > > (define-syntax m-even? (syntax-rules () ((_ x) (even? x)))) > > (even? 5))
This works now :-D And I worked around the hygiene problem by using generate-temporaries for the residual procedure names. This isn't the perfect solution, but will do until I have an idea how to solve this. Greetings, Juergen
