diff options
| -rw-r--r-- | mew.scm | 4 | ||||
| -rw-r--r-- | mew.svnwiki | 2 | ||||
| -rw-r--r-- | tests/test.mew | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/mew.scm b/mew.scm index cfd7022..64e2126 100644 --- a/mew.scm +++ b/mew.scm @@ -5,7 +5,7 @@ dec def del-at div empty? eof esc fin final for fun* - gen generic-for-each genumerate get gfix ggflatten giterate gmatch + gconcatenate gen generic-for-each genumerate get gfix giterate gmatch group-by-accumulator gslice-when gsplit gwindow inc inject into juxt @@ -316,7 +316,7 @@ (define (eof) #!eof) - (define (ggflatten gen) + (define (gconcatenate gen) (let ((gen2 #f)) (lambda () (unless gen2 diff --git a/mew.svnwiki b/mew.svnwiki index 1858fdd..7255aaf 100644 --- a/mew.svnwiki +++ b/mew.svnwiki @@ -297,7 +297,7 @@ Alias for {{make-range-generator}}. Generator returning {{<val>}}, {{(<fun> <val>)}}, {{(<fun> (<fun (<val>)))}}... -<procedure>(ggflatten <gen>)</procedure> +<procedure>(gconcatenate <gen>)</procedure> Generator yielding all values of the all generators yielded by {{<gen>}}. diff --git a/tests/test.mew b/tests/test.mew index f034d53..03f67c7 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -270,7 +270,7 @@ (test-group "eof" (test-assert (eof-object? (eof)))) -; ggflatten +; gconcatenate ; gwindow |