David Kastrup <[email protected]> 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))
Although the example above works, the more interesting question is
whether this works:
(let ((env (let ((foo (make-procedure-with-setter vector-ref vector-set!))
(x (make-vector 2 #f)))
(the-environment))))
(local-eval '(set! (foo x 1) 3) env))
and indeed, it does work.
Mark
