Mark H Weaver <[email protected]> writes:
> David Kastrup <[email protected]> writes:
>
>> How will either fare with:
>>
>> (let ((env
>> (let ((x 1))
>> (the-environment))))
>> (local-eval '(set! x 4) env))
>
> This example (or more complex ones based on the same idea) present no
> difficulties for either patch.
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))
--
David Kastrup
