duskos

commit c15982b7cc36b6df9288d0d62b71472e3fcb3221
parent aff76d0e0766f79f0b4e79d73cdcd61207c5f186
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Fri,  8 Jul 2022 12:24:26 -0400

Shorten the running RS a little bit

Now that we have stack traces on abort, we can see that the RS is spuriously
big because we're still running on top of the boot sequence. By running "quit"
at the end of "init", we start from a smaller base.

Diffstat:
M
fs/init.fs
 | 
2
+-
M
fs/lib/dict.fs
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/fs/init.fs b/fs/init.fs
@@ -14,5 +14,5 @@ f<< lib/diag.fs
 f<< sys/xhere.fs
 f<< sys/rdln.fs
 f<< lib/btrace.fs
-: init S" Dusk OS" stype nl> .free rdln$ ;
+: init S" Dusk OS" stype nl> .free rdln$ ( unwind the boot RS ) quit ;
 init
diff --git a/fs/lib/dict.fs b/fs/lib/dict.fs
@@ -5,7 +5,7 @@
 : wordname[] ( w -- sa sl )
   dup wordlen swap 5 - over - ( sl sa ) swap ;
 
-: word? ( w -- f ) dup if wordname[] if c@ 127 = not else drop 0 then then ;
+: word? ( w -- f ) ?dup if wordname[] if c@ 127 = not else 0 then then ;
 : (prevword) ( w -- w ) begin dup while dup word? not while preventry repeat then ;
 : prevword ( w -- w ) preventry (prevword) ;
 : lastword ( -- w ) current (prevword) ;