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
\r
.( Dictionary compiled, save in "pforth.dic".) cr\r
c" pforth.dic" save-forth\r
-\r
-\ Save the dictionary in "pfdicdat.h" file so pForth can be compiled for standalone mode.\r
-SDAD\r