Bugfix for module name parsing

1 files changed, 4 insertions, 2 deletions

diff --git a/compile.c b/compile.c
index 31e451be..48d0a9ea 100644
--- a/compile.c
+++ b/compile.c
@@ -1083,11 +1083,13 @@ module_code_t compile_file(ast_t *ast)
             CORD_appendf(&env->code->main, "%r\n", code);
     }
 
-    const char *name = strrchr(ast->file->filename, '/');
-    name = name ? name : ast->file->filename;
+    const char *slash = strrchr(ast->file->filename, '/');
+    const char *name = slash ? slash+1 : ast->file->filename;
     size_t name_len = 0;
     while (name[name_len] && (isalnum(name[name_len]) || name[name_len] == '_'))
         ++name_len;
+    if (name_len == 0)
+        errx(1, "No module name found for: %s", ast->file->filename);
     const char *module_name = heap_strn(name, name_len);
 
     return (module_code_t){