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

examples: amalgamate now works w/modular retro-unix.c + devices

Browse source 
FossilOrigin-Name: e81e18d7b2d6825f0b5570b9ba0193653d36a2b2c0310e23c4eada89efee421f
This commit is contained in:
crc 2020-10-22 19:11:24 +00:00
parent 87a5965718
commit db5b50759e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
example/amalgamate.retro
View file

@ -24,12 +24,12 @@ Then extract and generate the single file source.
~~~ ~~~
{{ {{
:image:inline :include-file
'vm/nga-c/retro-image.c [ s:put nl ] file:for-each-line ; #10 + s:chop 'vm/nga-c/ s:prepend here swap file:slurp here s:put ;
:source:line :source:line
dup '#include_"retro-image.c" s:eq? dup '#include_" s:begins-with?
[ drop image:inline ] [ s:put nl ] choose ; [ include-file ] [ s:put nl ] choose ;
---reveal--- ---reveal---