Fix 'local-eval' when the specified environment is a module
authorMark H Weaver <mhw@netris.org>
Mon, 30 Jan 2012 08:02:32 +0000 (03:02 -0500)
committerMark H Weaver <mhw@netris.org>
Mon, 30 Jan 2012 08:02:32 +0000 (03:02 -0500)
commit2f3e436411b5dbb4f1a1b9d8583b348e221d5b67
tree3281cbc41ad0e38dcf271bf74663d70e0113ea83
parent505afe28321654a5e28b0954eeda9d1a58ce2467
Fix 'local-eval' when the specified environment is a module

* module/ice-9/local-eval.scm (local-wrap): Fix the (module? e) case, to
  reference the expression 'x' instead of the non-existent variable
  'exp', as was previously done.  Also use quasisyntax instead of
  quasiquote, so that the introduced 'lambda' is an identifier instead
  of a bare symbol, so that this will work in modules that have rebound
  'lambda' to something else.

* test-suite/tests/eval.test (local-eval): Make sure to test both
  'local-eval' and 'local-compile' when the specified environment is a
  module.
module/ice-9/local-eval.scm
test-suite/tests/eval.test