diff options
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 |