|
From: | Mark H Weaver |
Subject: | Re: [PATCH] Implement local-eval, local-compile, and the-environment |
Date: | Thu, 05 Jan 2012 14:34:02 -0500 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.0.92 (gnu/linux) |
David Kastrup <address@hidden> 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
[Prev in Thread] | Current Thread | [Next in Thread] |