From 5bde1a7f4936e991c86da20fe0a143b527161ae2 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Fri, 18 Nov 2022 20:11:31 +0100 Subject: inject: use generator-xfold, immediately xfold if generator is passed --- tests/test.mew | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index ddf376c..7782fb6 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -444,7 +444,8 @@ (test 0 ((inject +) (generator))) (test 20 ((inject + 10) (generator 1 2 3 4))) (test 10 ((inject + 10) (generator))) - (test '((1 . 2) . 3) ((inject xcons) (generator 1 2 3)))) + (test '((1 . 2) . 3) ((inject cons) (generator 1 2 3))) + (test 20 (inject + 10 #(1 2 3 4)))) (test-group "sing?" (test #f (sing? '())) -- cgit 1.4.1