diff options
author | Daniel Kraft <d@domob.eu> | 2009-07-24 11:09:57 +0200 |
---|---|---|
committer | Daniel Kraft <d@domob.eu> | 2009-07-24 11:09:57 +0200 |
commit | a0899974414ce35f91fa66c240947a5710481665 (patch) | |
tree | 7f27c219e35bb0d1d0c8f99e6c7cc22e413ae9c6 /test-suite/tests/elisp-compiler.test | |
parent | a90d9c855de107d67aeaadd618a6c4941fc316d3 (diff) | |
download | guile-a0899974414ce35f91fa66c240947a5710481665.tar.gz |
Compiler option to disable void-checks in elisp.
* module/language/elisp/README: Document the change.
* module/language/elisp/compile-tree-il.scm: Add disable-void-check option.
* 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 | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index b76d4fad7..584cfd4bf 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -29,6 +29,8 @@ (syntax-rules (pass-if pass-if-exception) ((_ (pass-if test-name exp)) (pass-if test-name (compile 'exp #:from 'elisp #:to 'value))) + ((_ (pass-if test-name exp #:opts opts)) + (pass-if test-name (compile 'exp #:from 'elisp #:to 'value #:opts opts))) ((_ (pass-if-equal test-name result exp)) (pass-if test-name (equal? result (compile 'exp #:from 'elisp #:to 'value)))) @@ -203,7 +205,14 @@ (progn (setq a 1 b 2) (and (eq (makunbound 'b) 'b) (boundp 'a) - (not (boundp 'b)))))) + (not (boundp 'b))))) + + (pass-if "disabled void check (all)" + (progn (makunbound 'a) a t) + #: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)))) (with-test-prefix/compile "Let and Let*" |