![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to savesys.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to savesys.fs CVS log | Up to [gforth] / gforth |
| version 1.11, 2007/12/31 18:40:24 | version 1.12, 2010/12/27 13:16:47 |
|---|---|
| Line 60 | Line 60 |
| r> close-file throw ; | r> close-file throw ; |
| : savesystem ( "name" -- ) \ gforth | : savesystem ( "name" -- ) \ gforth |
| ofile 256 chars erase | |
| tfile 256 chars erase | |
| name dump-fi ; | name dump-fi ; |