crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

block editor: create retro.blocks if not already present (fixes a crash - thanks Kiyoshi)

Browse source 
FossilOrigin-Name: 08fbaacac3a369decdf75f4b4273e3e2711430f0aa7f992250124bffe5b4a036
This commit is contained in:
crc 2019-02-14 00:49:04 +00:00
parent 7bd0c6e15f
commit ee94d39248
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
example/Block-Editor.forth
View file

@ -110,6 +110,7 @@ that is added to Nga.
file:close drop ;
:block:read (-)
BLOCK-FILE file:exists? [ block:write ] -if
&Blocks BLOCK-FILE file:open<for-reading> swap
[ dup-pair file:read swap store &n:inc dip ] times
file:close drop ;