Re: [PATCH] Implement local-eval, local-compile, and the-environment

[Mark H Weaver]

David Kastrup <d...@gnu.org> writes:
> Ah, I see that set! has made it explicitly into the patterns.  What
> about
>
> (define foo (make-procedure-with-setter vector-ref vector-set!))
>
> (let ((env
>     (let ((x (make-vector 2 #f)))
>        (the-environment))))
>    (local-eval '(set! (foo x 1) 3) env))

Both patches handle this correctly.

      Mark