More fixes for function call

sadko4u · sadko4u · commit c9ec8364a4f6 · 2025-09-28T23:42:17.000+03:00
diff --git a/src/main/expr/evaluator.cpp b/src/main/expr/evaluator.cpp
@@ -1196,7 +1196,12 @@ namespace lsp
             }
 
             // Now we can perform call
-            return env->call(value, expr->call.name, expr->call.count, args);
+            res = env->call(value, expr->call.name, expr->call.count, args);
+            if (res != STATUS_NOT_FOUND)
+                return res;
+
+            set_value_undef(value);
+            return STATUS_OK;
         }
 
         status_t eval_value(value_t *value, const expr_t *expr, eval_env_t *env)

Original file line number	Diff line number	Diff line change
`@@ -1196,7 +1196,12 @@ namespace lsp`
`1196`	`1196`	`}`
`1197`	`1197`
`1198`	`1198`	`// Now we can perform call`
`1199`		`- return env->call(value, expr->call.name, expr->call.count, args);`
	`1199`	`+ res = env->call(value, expr->call.name, expr->call.count, args);`
	`1200`	`+ if (res != STATUS_NOT_FOUND)`
	`1201`	`+ return res;`
	`1202`	`+`
	`1203`	`+ set_value_undef(value);`
	`1204`	`+ return STATUS_OK;`
`1200`	`1205`	`}`
`1201`	`1206`
`1202`	`1207`	`status_t eval_value(value_t value, const expr_t expr, eval_env_t *env)`