mondo add % for pace

Author: felixroos

packages/mondo/mondo.mjs

@@ -17,7 +17,7 @@ export class MondoParser {
     open_seq: /^\[/,
     close_seq: /^\]/,
     number: /^-?[0-9]*\.?[0-9]+/, // before pipe!
-    op: /^[*/:!@]|^\.{2}/, // * / : ..
+    op: /^[*/:!@%]|^\.{2}/, // * / : ! @ % ..
     pipe: /^\./,
     stack: /^[,$]/,
     plain: /^[a-zA-Z0-9-~_^]+/,

packages/mondough/mondough.mjs

@@ -21,7 +21,7 @@ strudelScope.leaf = (token, scope) => {
 
 strudelScope.call = (fn, args, name) => {
   const [pat, ...rest] = args;
-  if (!['seq', 'cat', 'stack', ':', '..', '!', '@'].includes(name)) {
+  if (!['seq', 'cat', 'stack', ':', '..', '!', '@', '%'].includes(name)) {
     args = [...rest, pat];
   }
   if (name === 'seq') {
@@ -37,6 +37,7 @@ strudelScope['*'] = fast;
 strudelScope['/'] = slow;
 strudelScope['!'] = (pat, n) => pat.extend(n);
 strudelScope['@'] = (pat, n) => pat.expand(n);
+strudelScope['%'] = (pat, n) => pat.pace(n);
 
 // : operator
 const tail = (pat, friend) => pat.fmap((a) => (b) => (Array.isArray(a) ? [...a, b] : [a, b])).appLeft(friend);