diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-11-26 15:17:07 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-11-26 15:43:33 +0100 |
| commit | 0dcca77754302e8bad4af82113d952ef243271bd (patch) | |
| tree | 47a20d3b20db8a82d98cbb04e862f214a3b1bc76 /test-suite | |
| parent | fa4a22971a122e30e6b167bfe7ac209d02ffafc4 (diff) | |
Remove special support for fluids in GDB interface
* module/system/base/types.scm (inferior-fluid?, inferior-fluid-number)
(<inferior-fluid>): Remove. Fluids won't have numbers in the future.
(cell->object): Adapt.
* test-suite/tests/types.test ("opaque objects"): Update.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/types.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/test-suite/tests/types.test b/test-suite/tests/types.test index 15dc3f84f..446aff541 100644 --- a/test-suite/tests/types.test +++ b/test-suite/tests/types.test @@ -108,11 +108,8 @@ ((make-doubly-weak-hash-table) weak-table _) (#2((1 2 3) (4 5 6)) array _) (#*00000110 bitvector _) - ((expt 2 70) bignum _)) - - (pass-if "fluid" - (let ((fluid (make-fluid))) - (inferior-fluid? (scm->object (object-address fluid)))))) + ((expt 2 70) bignum _) + ((make-fluid) fluid _))) (define-record-type <some-struct> (some-struct x y z) |