diff options
author | Daniel Kraft <d@domob.eu> | 2009-07-30 13:51:45 +0200 |
---|---|---|
committer | Daniel Kraft <d@domob.eu> | 2009-07-30 13:51:45 +0200 |
commit | f3df67e203d7679f90db2a3d806651c7aa4c0fdc (patch) | |
tree | 54bda1fb2c0945698a03c6f8a6a6c748a0a58a07 /test-suite/tests/elisp-compiler.test | |
parent | e96a9591cedc0d7dff6b3e64003542ad2d10cd9d (diff) | |
download | guile-f3df67e203d7679f90db2a3d806651c7aa4c0fdc.tar.gz |
without-void-checks as new extension for fine-control
* module/language/elisp/README: Document it.
* module/language/elisp/compile-tree-il.scm: Handle without-void-checks.
* test-suite/tests/elisp-compiler.test: Test it.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r-- | test-suite/tests/elisp-compiler.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index 1eed4502e..7d77c3b8d 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -241,7 +241,10 @@ #:opts '(#:disable-void-check all)) (pass-if "disabled void check (symbol list)" (progn (makunbound 'a) a t) - #:opts '(#:disable-void-check (x y a b)))) + #:opts '(#:disable-void-check (x y a b))) + (pass-if "without-void-checks" + (progn (makunbound 'a) + (= (without-void-checks (a) a 5) 5)))) (with-test-prefix/compile "Let and Let*" |