diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-18 20:11:31 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-18 20:11:31 +0100 |
| commit | 5bde1a7f4936e991c86da20fe0a143b527161ae2 (patch) | |
| tree | a3ff2065b86b20ec1ef0b4eabd047dc0dee18c4b /tests | |
| parent | 66cd2fda549d7708acb8685933e619b0922885d5 (diff) | |
| download | mew-5bde1a7f4936e991c86da20fe0a143b527161ae2.tar.gz mew-5bde1a7f4936e991c86da20fe0a143b527161ae2.tar.xz mew-5bde1a7f4936e991c86da20fe0a143b527161ae2.zip | |
inject: use generator-xfold, immediately xfold if generator is passed
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 3 |
1 files changed, 2 insertions, 1 deletions
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? '())) |