alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix save/restore, which got broken.

Browse Source
This commit is contained in:
Brad Nelson
2022-01-30 10:07:34 -08:00
parent 61749a4796
commit 7306aace69
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ueforth/common/filetools.fs
View File

@ -27,9 +27,11 @@ internals definitions
: setup-saving-base : setup-saving-base
here to saving-base 16 cells allot 0 'cold ! ; here to saving-base 16 cells allot 0 'cold ! ;
' forth >body constant forth-wordlist
: save-name : save-name
'heap @ park-heap ! 'heap @ park-heap !
' forth >body @ park-forth ! forth-wordlist @ park-forth !
w/o create-file throw >r w/o create-file throw >r
saving-base here over - r@ write-file throw saving-base here over - r@ write-file throw
r> close-file throw ; r> close-file throw ;
@ -39,7 +41,7 @@ internals definitions
saving-base r@ file-size throw r@ read-file throw drop saving-base r@ file-size throw r@ read-file throw drop
r> close-file throw r> close-file throw
park-heap @ 'heap ! park-heap @ 'heap !
park-forth @ ' forth >body ! park-forth @ forth-wordlist !
'cold @ dup if execute else drop then ; 'cold @ dup if execute else drop then ;
defer remember-filename defer remember-filename