diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-03 19:59:31 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-03 19:59:31 +0100 |
| commit | 20843c55208fbf2861217532d1a8f03ee27d8be9 (patch) | |
| tree | d56ac7f3f42978c83f060721172599f58fa39841 | |
| parent | 70bfd1d723f5c20fd89f9341f3aca9099ef9776c (diff) | |
| download | mew-20843c55208fbf2861217532d1a8f03ee27d8be9.tar.gz mew-20843c55208fbf2861217532d1a8f03ee27d8be9.tar.xz mew-20843c55208fbf2861217532d1a8f03ee27d8be9.zip | |
rename ggflatten -> gconcatenate
Gauche has this already.
| -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 |