jacob/scl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Fixed name error handling.

Browse Source
This commit is contained in:
Jacob Signorovitch 2025-02-25 07:52:02 -05:00
parent 8cab531129
commit 79b60e4853
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/exec.c
View File

@ -65,14 +65,15 @@ AST* exec_call(AST* ast) {
AST* fdef = exec_find(fname);
if (fdef == NULL)
return ast_init(AST_TYPE_EXC, ast_exc_data_init(strdup("No such function found.")));
switch (fdef->type) {
case AST_TYPE_BIF:
ASTBIFData* bifdata = fdef->data;
return (*bifdata)(argc, argv);
default: return ast_init(AST_TYPE_EXC, ast_exc_data_init("Good job"));
}
return ast_init(AST_TYPE_EXC, ast_exc_data_init(strdup("No such function found.")));
}
AST* exec_find(char* name) {
@ -84,7 +85,7 @@ AST* exec_find(char* name) {
if (val != NULL) return val;
}
return ast_init(AST_TYPE_EXC, ast_exc_data_init("Couln't find term."));
return NULL;
}
AST* exec_vdef(AST* ast) {