(lambda (m e)
(let ([val 1])
(putprop 'foo val)
(+ foo 1)))
should return 2 on the first and all subsequent
invocations. However, it returns 1 on the first invocation.
It appears that the error continuation of the
"undefined variable" error is the (+ ...) expression
rather than the "foo" expression.