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

Merge pull request #547 from tidalcycles/fix-mini-whitespace

Browse Source 
fix: allow whitespace at the end of a mini pattern
This commit is contained in:
Felix Roos 2023-03-29 22:16:37 +02:00 committed by GitHub
commit 0f74b5a4b1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/mini/krill-parser.js
View File

@ -1511,18 +1511,20 @@ function peg$parse(input, options) {
} }
function peg$parsemini() { function peg$parsemini() {
var s0, s1, s2, s3, s4; var s0, s1, s2, s3, s4, s5, s6;
s0 = peg$currPos; s0 = peg$currPos;
s1 = peg$parsews(); s1 = peg$parsews();
s2 = peg$parsequote(); s2 = peg$parsequote();
if (s2 !== peg$FAILED) { if (s2 !== peg$FAILED) {
s3 = peg$parsestack_or_choose(); s3 = peg$parsews();
if (s3 !== peg$FAILED) { s4 = peg$parsestack_or_choose();
s4 = peg$parsequote(); if (s4 !== peg$FAILED) {
if (s4 !== peg$FAILED) { s5 = peg$parsews();
s6 = peg$parsequote();
if (s6 !== peg$FAILED) {
peg$savedPos = s0; peg$savedPos = s0;
s0 = peg$f19(s3); s0 = peg$f19(s4);
} else { } else {
peg$currPos = s0; peg$currPos = s0;
s0 = peg$FAILED; s0 = peg$FAILED;

2
packages/mini/krill.pegjs
View File

@ -182,7 +182,7 @@ polymeter_stack = head:sequence tail:stack_tail?
// Experimental haskellish parser begins // Experimental haskellish parser begins
// mini-notation = a quoted stack // mini-notation = a quoted stack
mini = ws quote sc:stack_or_choose quote mini = ws quote ws sc:stack_or_choose ws quote
{ return sc; } { return sc; }
// ------------------ operators --------------------------- // ------------------ operators ---------------------------