From 9142bb19726b62492e2f4c6ecb8bc7a5fe9b712f Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Wed, 7 Dec 2022 01:49:46 +0100 Subject: op=> only transform lists which contain _ --- tests/test.mew | 1 + 1 file changed, 1 insertion(+) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index c01bb08..589b63e 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -551,6 +551,7 @@ (test 42 (op=> 40 ,(op inc _) inc)) (test #f (op=> 40 inc even?)) (test 43 (op=> '(6 7) (apply * _) inc)) + (test 43 (op=> '(6 7) unlist (compose *) inc)) (test 42 (op=> 42))) (test-group "fun=>" -- cgit 1.4.1