[CM] Bug in (apply set! ..)

[Christos Vagias]

Hi Bil & co,

Found a bug in (apply set! ..) :

> (define x 'foo)
foo
> (apply set! 'x 'bar ())

;unbound variable bar in (x bar)

And it can get a bit weirder:

> (define bar 'the-bar)
> (apply set! 'x bar ())

;unbound variable the-bar in (x the-bar)

> (apply set! 'x 'bar ())
the-bar
> (eq? x 'the-bar)
#t

Best,
Christos
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20220221/e2b30df3/attachment.html>