diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-10-15 21:29:42 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-10-15 21:29:42 +0200 |
commit | 1ebe6a63686b341b55848b0dc0532e7b0d665c15 (patch) | |
tree | 732acb7a69202132a0353b62463fd580c6f05e86 /test-suite/tests/compiler.test | |
parent | 30e73c7698daa038a3fce2135781166d1edfa4e0 (diff) | |
download | guile-1ebe6a63686b341b55848b0dc0532e7b0d665c15.tar.gz |
Document the interaction of the "compilee" with the compiler's current module.
This is a followup to 87c595c757b7db84ffdcfda96f736ab235e674a8 ("Compile
in a fresh module by default.") and
f65e2b1ec5ae1962e57322ac3085ab4d44025694 ("Honor and confine
expansion-time side-effects to `current-reader'.").
* doc/ref/api-evaluation.texi (Loading): Explain how to change
`current-reader' in a compiler-friendly way.
* doc/ref/compiler.texi (The Scheme Compiler): Explain use of a fresh
compilation module and separate `current-reader' fluid.
* test-suite/tests/compiler.test ("current-reader")["with eval-when"]:
New test.
Diffstat (limited to 'test-suite/tests/compiler.test')
-rw-r--r-- | test-suite/tests/compiler.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test index ed6f03325..6d433ebac 100644 --- a/test-suite/tests/compiler.test +++ b/test-suite/tests/compiler.test @@ -98,4 +98,10 @@ this-should-be-ignored"))) (and (eq? (vm-load (the-vm) (read-and-compile input)) 'ok) - (eq? r (fluid-ref current-reader)))))) + (eq? r (fluid-ref current-reader))))) + + (pass-if "with eval-when" + (let ((r (fluid-ref current-reader))) + (compile '(eval-when (compile eval) + (fluid-set! current-reader (lambda args 'chbouib)))) + (eq? (fluid-ref current-reader) r)))) |