From 5c7c2a625ab163e665084334f2997eeb574419c7 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 14 Oct 2018 21:08:39 -0700 Subject: doc: use nequal. * txr.1: shorten some examples by replacing (not (equal ...)) with (nequal ...). --- txr.1 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'txr.1') diff --git a/txr.1 b/txr.1 index bced33a0..f349b4a5 100644 --- a/txr.1 +++ b/txr.1 @@ -14775,7 +14775,7 @@ and used as the basis of the test. ;; a line is identical to the character string "end". (whilet ((line (get-line)) - (more (and line (not (equal line "end"))))) + (more (and line (nequal line "end")))) (put-line line)) .cble @@ -49841,7 +49841,7 @@ the corresponding field in the previous line: .cblk (awk (:let prev) - ((not (equal [f 0] prev)) (prn) (set prev [f 0]))) + ((nequal [f 0] prev) (prn) (set prev [f 0]))) .cble .IP 17. Simulate the -- cgit v1.2.3