Commit 524da4f4 authored by Phil Jones's avatar Phil Jones

fixed reverses for > 9

parent 31c35451
......@@ -40,12 +40,12 @@ ARGINS = PULL | PULLONE | REVERSE | PUSHSHORT | PUSHMEDIUM | PUSHLONG | EXTRA |
PULL = PLUS SPACE PATTERN;
PATTERN = NOTSPACE;
PULLONE = PLUS PLUS SPACE PATTERN;
REVERSE = 'r' SPACE N
REVERSE = 'r' SPACE NUMBER
<SPACE> = #'\\s+';
<NOTSPACE> = #'\\S+';
<PLUS> = '+';
QUERY = '?' SPACE PATTERN;
N = #'[0-9+]'
NUMBER = #'[0-9]+'
DELAYLONG = '////';
DELAYMEDIUM = '///';
DELAYSHORT = '//';
......
......@@ -97,6 +97,9 @@
[:ALL [:ARGINS [:PUSHLONG "----" " " [:PATTERN "goodbye"]]]]
)))
(is (= (prs "r 14")
(list [:ALL [:TODO "r 14"]]
[:ALL [:ARGINS [:REVERSE "r" " " [:NUMBER "14"]]]])))
(is (= (prs "e mo' better blues")
(list [:ALL [:TODO "e mo' better blues"]]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment