Patches from https://github.com/nealcrook/hForth.git up to commit cdccc69

[hf86v099.git] / msdos.f

diff --git a/msdos.f b/msdos.f
index e74b9aa..a37ebd2 100644 (file)
--- a/msdos.f
+++ b/msdos.f
@@ -490,7 +490,7 @@ END-CODE
     updated IF\r
       current-block# 1K UM* block-fid REPOSITION-FILE THROW\r
       block-buffer 1K  block-fid WRITE-FILE THROW\r
-      block-fid FLUSH-FILE\r
+      block-fid FLUSH-FILE THROW\r
       0 TO updated\r
     THEN ;\r
 \r
@@ -845,7 +845,7 @@ DECIMAL
       sp0 sp!\r
     AGAIN ;\r
 \r
-: BYE  block-fid FLUSH-FILE  BYE ;\r
+: BYE   block-fid FLUSH-FILE THROW  BYE ;\r
 \r
 NONSTANDARD-WORDLIST SET-CURRENT\r
 \r