summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorBrian Templeton <bpt@hcoop.net>2010-08-14 19:28:56 -0400
committerAndy Wingo <wingo@pobox.com>2010-12-07 13:21:03 +0100
commit3f70b2dc5c33073b6f24078bc1fc1d6bdcd3b03f (patch)
treeb6aceae67620b68e4ddbee2c73b4b2bc87bb3f0f /test-suite/tests
parent67cb2c27610295aa68445951c03a7550efc9453a (diff)
downloadguile-3f70b2dc5c33073b6f24078bc1fc1d6bdcd3b03f.tar.gz
use unbound fluids instead of `void' sentinel value
* module/language/elisp/compile-tree-il.scm (reference-with-check) (compile-without-void-checks, want-void-check?): Remove. (compile-function, compile-pair): Use `reference-variable' instead of `reference-with-check'. (compile-defvar): Only set `sym' if `sym' is not bound to a bound fluid, rather than requiring that its value be `void'. (process-options!): Remove `#:disable-void-check' option handling. * module/language/elisp/runtime.scm (void) (reference-variable-with-check): Remove. (ensure-fluid!): Use an undefined fluid as the initial value for global variables. * module/language/elisp/runtime/function-slot.scm (without-void-checks): Don't import or re-export. * module/language/elisp/runtime/macros.scm (prog1, cond, or, dolist): Don't use `without-void-checks'. * module/language/elisp/runtime/subrs.scm (symbol-value) (symbol-function, apply): Use `reference-variable' instead of `reference-variable-with-check'. (makunbound, fmakunbound, boundp, fboundp): Unset the variable's fluid (or the variable itself, if it isn't bound to a fluid). * test-suite/tests/elisp-compiler.test ("Variable Setting/Referencing")["disabled void check (all)", "disabled void check (symbol list)", "without-void-checks"]: Remove. Signed-off-by: Andy Wingo <wingo@pobox.com>
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/elisp-compiler.test12
1 files changed, 1 insertions, 11 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index df22afe1c..0d3a8b4b4 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -234,17 +234,7 @@
(progn (setq a 1 b 2)
(and (eq (makunbound 'b) 'b)
(boundp 'a)
- (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)))
- (pass-if "without-void-checks"
- (progn (makunbound 'a)
- (= (without-void-checks (a) a 5) 5))))
+ (not (boundp 'b))))))
(with-test-prefix/compile "Let and Let*"