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 | 5c7c2a625ab163e665084334f2997eeb574419c7 (patch) | |
| tree | cc976442becdb20cf63ae4e1976ebbb734ee53ad | |
| parent | 1278dbf8491d6c6762f5b07833ed26299769c1f5 (diff) | |
| download | txr-5c7c2a625ab163e665084334f2997eeb574419c7.tar.gz txr-5c7c2a625ab163e665084334f2997eeb574419c7.tar.bz2 txr-5c7c2a625ab163e665084334f2997eeb574419c7.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 |