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 /mew.scm | |
| 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 'mew.scm')
| -rw-r--r-- | mew.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/mew.scm b/mew.scm index e4a07c0..e3b88c3 100644 --- a/mew.scm +++ b/mew.scm @@ -773,9 +773,11 @@ (v (g))) (if (eof-object? v) (f) - (generator-fold f v g))))) + (generator-xfold f v g))))) ((f v) (lambda (o) - (generator-fold f v (gen o)))))) + (generator-xfold f v (gen o)))) + ((f v g) + ((inject f v) (gen g))))) (define (sing? l) (match l |