6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-25 10:30:57 +00:00
Code Issues Projects Releases Wiki Activity

Print file name when including file

Browse Source
This commit is contained in:
Philip Zembrod 2022-01-16 11:06:55 +01:00
parent d9a2bf6311
commit 69a959d618
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
8086/msdos/src/include.fb
View File

File diff suppressed because one or more lines are too long

2
8086/msdos/src/include.fth
View File

@ -103,7 +103,7 @@
r> UNTIL ; r> UNTIL ;
: include ( -- ) : include ( -- )
pushfile use pushfile use file? cr
probe-for-fb isfile@ freset IF 1 load close exit THEN probe-for-fb isfile@ freset IF 1 load close exit THEN
savetib >r interpret-via-tib close r> restoretib ; savetib >r interpret-via-tib close r> restoretib ;