From 6aa1010b155a079e7f03983f8ac45a751dd26ae7 Mon Sep 17 00:00:00 2001
From: Phil Burk <philburk@mobileer.com>
Date: Mon, 21 Feb 2022 12:56:46 -0700
Subject: [PATCH] Add MAP.FILENAME for HMSL ASSIGNS (#108)

Allow filename remapping in $INCLUDE
---
 fth/system.fth | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/fth/system.fth b/fth/system.fth
index 5b199f1..08f3ef4 100644
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -777,7 +777,13 @@ variable TRACE-INCLUDE
         rdrop
 ;
 
-: $INCLUDE ( $filename -- ) count included ;
+defer MAP.FILENAME ( $filename1 -- $filename2 , modify name )
+' noop is map.filename
+
+: $INCLUDE ( $filename -- )
+    map.filename
+    count included
+;
 
 create INCLUDE-SAVE-NAME 128 allot
 : INCLUDE ( <fname> -- )
-- 
2.47.2