drop ." Could not find file " $type cr abort\r
ELSE ( -- $filename good-fid )\r
swap include.mark.start\r
- dup >r \ save fid for close-file\r
depth >r\r
- include-file\r
+ include-file \ will also close the file\r
depth 1+ r> -\r
IF\r
." Warning: stack depth changed during include!" cr\r
.s cr\r
0sp\r
THEN\r
- r> close-file drop\r
include.mark.end\r
THEN\r
trace-include @\r