From: Phil Burk <philburk@mobileer.com>
Date: Mon, 21 Feb 2022 19:56:46 +0000 (-0700)
Subject: Add MAP.FILENAME for HMSL ASSIGNS (#108)
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=6aa1010b155a079e7f03983f8ac45a751dd26ae7;p=debian%2Fpforth

Add MAP.FILENAME for HMSL ASSIGNS (#108)

Allow filename remapping in $INCLUDE
---

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> -- )