diff options
author | Brian Templeton <bpt@hcoop.net> | 2010-08-14 19:28:56 -0400 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-12-07 13:21:03 +0100 |
commit | 3f70b2dc5c33073b6f24078bc1fc1d6bdcd3b03f (patch) | |
tree | b6aceae67620b68e4ddbee2c73b4b2bc87bb3f0f /test-suite/tests | |
parent | 67cb2c27610295aa68445951c03a7550efc9453a (diff) | |
download | guile-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.test | 12 |
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*" |