diff options
Diffstat (limited to 'tests/011/patmatch.tl')
| -rw-r--r-- | tests/011/patmatch.tl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 24d7b995..2e05d59f 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -550,12 +550,6 @@ (match-ecase 42 (@a a)) 42 (match-ecase '(1 2) ((@a) a)) :error) -(compile-only - (eval-only - (with-compile-opts (nil unused) - (compile-file (base-name *load-path*) "temp.tlo")) - (remove-path "temp.tlo"))) - (mtest (match @`foo-@a` "foo-abc" a) "abc" (match ^(,`foo-@a`) '("foo-abc") a) "abc" @@ -588,3 +582,9 @@ (y 24)) (match-cond (`@x-24` `42-@y`))) "42-24") + +(compile-only + (eval-only + (with-compile-opts (nil unused) + (compile-file (base-name *load-path*) "temp.tlo")) + (remove-path "temp.tlo"))) |