diff options
| author | s-ol <s-ol@users.noreply.github.com> | 2020-03-02 17:27:49 +0000 |
|---|---|---|
| committer | s-ol <s-ol@users.noreply.github.com> | 2020-03-02 17:43:17 +0000 |
| commit | f58dc0c7f72fa036adab1c8ca2de6ec968989ea1 (patch) | |
| tree | 50be346d8683312d116efa54522eccc55d9c4321 /core/parsing.moon | |
| parent | dynamic scoping (diff) | |
| download | alive-f58dc0c7f72fa036adab1c8ca2de6ec968989ea1.tar.gz alive-f58dc0c7f72fa036adab1c8ca2de6ec968989ea1.zip | |
only :tick after :setup if dirty
Diffstat (limited to 'core/parsing.moon')
| -rw-r--r-- | core/parsing.moon | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/core/parsing.moon b/core/parsing.moon index e919c41..8a99d89 100644 --- a/core/parsing.moon +++ b/core/parsing.moon @@ -29,7 +29,7 @@ num = ((P '-')^-1 * (float + int)) / Value\parse 'num' atom = num + sym + str expr = (V 'cell') + atom -explist = Ct mspace * (V 'expr') * (space * (V 'expr'))^0 * mspace +explist = Ct mspace * ((V 'expr') * (space * (V 'expr'))^0 * mspace)^-1 tag = (P '[') * (digit^1 / Tag\parse) * (P ']') cell = (P '(') * tag^-1 * (V 'explist') * (P ')') / Cell\parse |