From db5b50759e74a3fb5f4c8dd3f5f92fb9a3000ef6 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Thu, 22 Oct 2020 19:11:24 +0000
Subject: [PATCH] examples: amalgamate now works w/modular retro-unix.c +
 devices

FossilOrigin-Name: e81e18d7b2d6825f0b5570b9ba0193653d36a2b2c0310e23c4eada89efee421f
---
 example/amalgamate.retro | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/example/amalgamate.retro b/example/amalgamate.retro
index 9c8cf1c..5018dbc 100644
--- a/example/amalgamate.retro
+++ b/example/amalgamate.retro
@@ -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---