diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-03-23 00:12:46 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-03-23 00:12:46 -0700 |
| commit | 0d8638e43da65169c3d46273c6c9c8239f54723f (patch) | |
| tree | 49865cd42a717e3325adc068b2101574622705a3 /tests/011 | |
| parent | 502c6b4d4a1e29c51c80a39a6eaef27a3f5c0d89 (diff) | |
| download | txr-0d8638e43da65169c3d46273c6c9c8239f54723f.tar.gz txr-0d8638e43da65169c3d46273c6c9c8239f54723f.tar.bz2 txr-0d8638e43da65169c3d46273c6c9c8239f54723f.zip | |
tests: squelch unused variable warnings.
* tests/011/patmatch.tl,
* tests/019/pct-fun.tl: Disable unused
warnings around file self-compilation.
* tests/011/tree-bind.tl: Fix one unused
variable instance using interned symbol.
* tests/011/compile.tl: Disable unused
warnings around all file compilation.
* tests/012/lambda.tl: Use the parameter
of one trivial lambda.
* tests/common.tl: Disable unused warnings
around compiled tests.
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/patmatch.tl | 3 | ||||
| -rw-r--r-- | tests/011/tree-bind.tl | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 81cda935..5e8d3f7f 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -552,7 +552,8 @@ (compile-only (eval-only - (compile-file (base-name *load-path*) "temp.tlo") + (with-compile-opts (nil unused) + (compile-file (base-name *load-path*) "temp.tlo")) (remove-path "temp.tlo"))) (mtest diff --git a/tests/011/tree-bind.tl b/tests/011/tree-bind.tl index 83fcaa33..ac55cc07 100644 --- a/tests/011/tree-bind.tl +++ b/tests/011/tree-bind.tl @@ -10,7 +10,7 @@ (tree-bind (t : b) '(1 2) b) 2 (tree-bind (b : t) '(1) b) 1 (tree-bind (b : (t 2)) '(1) b) 1 - (tree-bind (b : (a 2 t)) '(1) a) 2 + (tree-bind (#:b : (a 2 t)) '(1) a) 2 (let ((i 0)) (tree-bind (b : (t (inc i) t)) '(1) (cons i b))) (1 . 1) (let ((i 0)) (tree-bind (b : (t (inc i) t)) '(1 2) (cons i b))) (0 . 1)) |