duskos

dusk os fork
git clone git://git.alexwennerberg.com/duskos
Log | Files | Refs | README | LICENSE

commit 293639aa6cc84f2bbe436036d81a74492dc57dea
parent ab600cc4ab7e3844d4a945da62cf3e7c947efbe2
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Tue, 28 Jun 2022 16:03:19 -0400

Tiny changes

Diffstat:
Mfs/lib/core.fs | 2+-
Mfs/sys/rdln.fs | 4++--
2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/fs/lib/core.fs b/fs/lib/core.fs @@ -57,7 +57,7 @@ $08 const BS $04 const EOF \ case..endcase \ The case statement is very similar to what we see in other forths, but with -\ one major difference: the "of" word specifies the thruth word. So, the +\ one major difference: the "of" word specifies the truth word. So, the \ "of" we see in other forths is equivalent to "of =" in Dusk OS. The comparator \ has to be a single word following "of". \ case x of = ... endof y of < ... endof ... endcase diff --git a/fs/sys/rdln.fs b/fs/sys/rdln.fs @@ -1,7 +1,7 @@ \ Readline interface -64 value LNSZ +64 const LNSZ create in( LNSZ allot -: in) in( 64 + ; +here value in) in) value in> : bs? BS over = swap $7f = or ; \ only emit c if it's within the visible ascii range