Print filename when loading of dictionary fails

philburk · Sep 19, 2024 · 7ff4f58 · 7ff4f58
1 parent 46002ce
commit 7ff4f58
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/csrc/pf_core.c b/csrc/pf_core.c
@@ -488,7 +488,6 @@ ThrowCode pfDoForth( const char *DicFileName, const char *SourceName, cell_t IfI
             pfDebugMessage("SourceName = "); pfDebugMessage(SourceName); pfDebugMessage("\n");
         }
 
-
 #ifdef PF_NO_GLOBAL_INIT
         if( LoadCustomFunctionTable() < 0 ) goto error2; /* Init custom 'C' call array. */
 #endif

diff --git a/csrc/pf_save.c b/csrc/pf_save.c
@@ -749,6 +749,9 @@ DBUG(("pfLoadDictionary: return %p\n", dic));
 error:
     sdCloseFile( fid );
 xt_error:
+    MSG("Error loading dictionary from: ");
+    MSG(FileName);
+    EMIT_CR;
     return NULL;
 }