diff options
author | Bushmills <bushmills.github@scarydevilmonastery.net> | 2019-09-25 17:36:44 +0200 |
---|---|---|
committer | Mitch Bradley <wmb@firmworks.com> | 2019-09-25 08:35:57 -1000 |
commit | ea0285012847c319bc84fc61c39cf523129d2483 (patch) | |
tree | ee99b66256f765b3bbc87e124ecaac096b947e25 | |
parent | 94e9dc20897a312394602e1e3cb9ae9b5d370a03 (diff) | |
download | cforth-ea0285012847c319bc84fc61c39cf523129d2483.tar.gz |
simplified <= and >=
-rwxr-xr-x | src/cforth/dot.fth | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cforth/dot.fth b/src/cforth/dot.fth index ee970ca..c5e6ae3 100755 --- a/src/cforth/dot.fth +++ b/src/cforth/dot.fth @@ -29,8 +29,8 @@ create digits 8 cells i over bounds ?do i @ 9 u.r cell +loop cr +loop ; -: <= 2dup < -rot = or ; -: >= 2dup > -rot = or ; +: <= ( n1 n2 -- flag ) > 0= ; +: >= ( n1 n2 -- flag ) < 0= ; : between ( n low high -- flag ) rot tuck >= -rot <= and ; : printable? ( n -- flag ) bl 7e between ; : dump ( adr len -- ) |