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

retro/ilo editor now supports "needs"

Browse source 
FossilOrigin-Name: 0cb059d1bae2fefb79402489fe67b767d72a260f284bfaf560418098d76d4e0d
This commit is contained in:
crc 2022-07-25 14:21:44 +00:00
parent 5c104a8f15
commit 953c3d51ab
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
example/rilo-editor.retro
View file

@ -164,10 +164,11 @@ space.
}} }}
~~~ ~~~
~~~
{{ {{
'Hash var 'Hash var
:reset #64 block:buffer n:dec store ; :reset #64 block:buffer n:dec store ;
:actual block:buffer n:dec dup #32 s:index/c s:left ; :actual block:buffer n:dec dup #32 a:index a:left a:to-string ;
:code? block:buffer fetch $( eq? ; :code? block:buffer fetch $( eq? ;
---reveal--- ---reveal---
:needs (s-) :needs (s-)
@ -178,3 +179,4 @@ space.
&run if ] if ] indexed-times &run if ] if ] indexed-times
!Block load ] dip !Hash ; !Block load ] dip !Hash ;
}} }}
~~~