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

[David Kastrup]

Mark H Weaver <address@hidden> writes:

> David Kastrup <address@hidden> 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