diff options
author | Mitch Bradley <wmb@firmworks.com> | 2017-09-11 15:38:47 -1000 |
---|---|---|
committer | Mitch Bradley <wmb@firmworks.com> | 2017-09-11 15:39:43 -1000 |
commit | 094972c421af7d4155a07f6922f31326219130bd (patch) | |
tree | f9789f8d3ed46b8cf567ac2ea4b6e98da1895141 | |
parent | 5a93c306da5815b8135521e1325903ef5a1113d1 (diff) | |
download | cforth-094972c421af7d4155a07f6922f31326219130bd.tar.gz |
Fix be-l!
-rw-r--r-- | src/lib/misc.fth | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lib/misc.fth b/src/lib/misc.fth index f5bcf26..a0025e3 100644 --- a/src/lib/misc.fth +++ b/src/lib/misc.fth @@ -33,7 +33,7 @@ [ifndef] be-l! : be-l! ( l adr -- l ) - >r lbsplit r@ c! r@ 1+ c! r@ 2+ c! r@ 3 + c! + >r lbsplit r@ c! r@ 1+ c! r@ 2+ c! r> 3 + c! ; [then] |