diff options
| author | dcs <dcs@FreeBSD.org> | 2000-01-28 03:41:39 +0000 |
|---|---|---|
| committer | dcs <dcs@FreeBSD.org> | 2000-01-28 03:41:39 +0000 |
| commit | 22631e4b23fa4cd2c2105b218cf4b98f88dce3b9 (patch) | |
| tree | d77520188b6a5f76abcedc1a56b5607bcbf1fd28 /sys/boot | |
| parent | 675514383d758617e0594d40994c884912cc289e (diff) | |
| download | FreeBSD-src-22631e4b23fa4cd2c2105b218cf4b98f88dce3b9.zip FreeBSD-src-22631e4b23fa4cd2c2105b218cf4b98f88dce3b9.tar.gz | |
ANS Forth for logical not is 0=, not invert. Replace wrong usage.
Diffstat (limited to 'sys/boot')
| -rw-r--r-- | sys/boot/ficl/softwords/softcore.fr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sys/boot/ficl/softwords/softcore.fr b/sys/boot/ficl/softwords/softcore.fr index a292dbe..bf584d0 100644 --- a/sys/boot/ficl/softwords/softcore.fr +++ b/sys/boot/ficl/softwords/softcore.fr @@ -45,8 +45,8 @@ decimal 32 constant bl \ ** CORE EXT 0 constant false -1 constant true -: <> = invert ; -: 0<> 0= invert ; +: <> = 0= ; +: 0<> 0= 0= ; : compile, , ; : erase ( addr u -- ) 0 fill ; : nip ( y x -- x ) swap drop ; |
