diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-05-11 09:22:04 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-05-11 09:22:04 -0700 |
| commit | d0ca711efc23415d1e2d385bbaa126deb7c13f0f (patch) | |
| tree | ad14ba852154b6bd8677779121ace57345d07ae3 | |
| parent | c1f24e122e23a0980d0fd57c282a7276dd21365d (diff) | |
| download | diff2err-d0ca711efc23415d1e2d385bbaa126deb7c13f0f.tar.gz diff2err-d0ca711efc23415d1e2d385bbaa126deb7c13f0f.tar.bz2 diff2err-d0ca711efc23415d1e2d385bbaa126deb7c13f0f.zip | |
Combine (set ...) forms; remove unneeded clauses.
| -rwxr-xr-x | diff2err.txr | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/diff2err.txr b/diff2err.txr index f82ee00..bd1947d 100755 --- a/diff2err.txr +++ b/diff2err.txr @@ -43,14 +43,8 @@ (t `@minuses lines edited to @pluses lines`)))) (put-line `@path:@(+ line1 start):@wording`) (put-lines (nreverse old)) - (set minuses 0) - (set pluses 0) - (set start nil) - (set old nil)))) -@ (or) -+@nil -@ (or) -@ (accept) + (set minuses 0 pluses 0 + start nil old nil)))) @ (end) @ (until) @/[^+\- ]/@nil |