diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-10-14 21:08:39 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-10-14 21:08:39 -0700 |
| commit | dde754e10fe1d1ac94d3910c1fe8ee8596e3352d (patch) | |
| tree | cc976442becdb20cf63ae4e1976ebbb734ee53ad | |
| parent | 5035f0fa8d4fd1aa028dc33090c896d9798b90c4 (diff) | |
| download | txr-dde754e10fe1d1ac94d3910c1fe8ee8596e3352d.tar.gz txr-dde754e10fe1d1ac94d3910c1fe8ee8596e3352d.tar.bz2 txr-dde754e10fe1d1ac94d3910c1fe8ee8596e3352d.zip | |
doc: use nequal.
* txr.1: shorten some examples by replacing (not (equal ...))
with (nequal ...).
| -rw-r--r-- | txr.1 | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |