diff options
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)) |