elias/strudel-docker
1
0
Fork 0
mirror of https://github.com/eliasstepanik/strudel-docker.git synced 2026-01-15 23:58:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

support catting subpatterns, fixes #87

Browse Source
This commit is contained in:
alex 2022-04-23 09:38:05 +01:00
parent f4dd549a41
commit 9df20fcbc5
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/core/pattern.mjs
View File

@ -837,7 +837,10 @@ export function stack(...pats) {
export function slowcat(...pats) { export function slowcat(...pats) {
// Concatenation: combines a list of patterns, switching between them // Concatenation: combines a list of patterns, switching between them
// successively, one per cycle. // successively, one per cycle.
pats = pats.map(reify);
// Array test here is to avoid infinite recursions..
pats = pats.map(pat => Array.isArray(pat) ? sequence(...pat) : reify(pat));
const query = function (state) { const query = function (state) {
const span = state.span; const span = state.span;
const pat_n = mod(span.begin.sam(), pats.length); const pat_n = mod(span.begin.sam(), pats.length);

6
packages/core/test/pattern.test.mjs
View File

@ -413,6 +413,12 @@ describe('Pattern', function () {
['c'], ['c'],
); );
}); });
it ('Can cat subpatterns', () => {
sameFirst(
slowcat('a', ['b','c']).fast(4),
sequence('a', ['b', 'c']).fast(2)
)
})
}); });
describe('rev()', function () { describe('rev()', function () {
it('Can reverse things', function () { it('Can reverse things', function () {