examples: amalgamate now works w/modular retro-unix.c + devices
FossilOrigin-Name: e81e18d7b2d6825f0b5570b9ba0193653d36a2b2c0310e23c4eada89efee421f
This commit is contained in:
parent
87a5965718
commit
db5b50759e
1 changed files with 4 additions and 4 deletions
|
@ -24,12 +24,12 @@ Then extract and generate the single file source.
|
|||
|
||||
~~~
|
||||
{{
|
||||
:image:inline
|
||||
'vm/nga-c/retro-image.c [ s:put nl ] file:for-each-line ;
|
||||
:include-file
|
||||
#10 + s:chop 'vm/nga-c/ s:prepend here swap file:slurp here s:put ;
|
||||
|
||||
:source:line
|
||||
dup '#include_"retro-image.c" s:eq?
|
||||
[ drop image:inline ] [ s:put nl ] choose ;
|
||||
dup '#include_" s:begins-with?
|
||||
[ include-file ] [ s:put nl ] choose ;
|
||||
|
||||
---reveal---
|
||||
|
||||
|
|
Loading…
Reference in a new issue