From d0ca711efc23415d1e2d385bbaa126deb7c13f0f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 11 May 2020 09:22:04 -0700
Subject: Combine (set ...) forms; remove unneeded clauses.

---
 diff2err.txr | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'diff2err.txr')

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
-- 
cgit v1.2.3