summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorDaniel Kraft <d@domob.eu>2009-07-30 13:51:45 +0200
committerDaniel Kraft <d@domob.eu>2009-07-30 13:51:45 +0200
commitf3df67e203d7679f90db2a3d806651c7aa4c0fdc (patch)
tree54bda1fb2c0945698a03c6f8a6a6c748a0a58a07 /test-suite/tests/elisp-compiler.test
parente96a9591cedc0d7dff6b3e64003542ad2d10cd9d (diff)
downloadguile-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.test5
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*"