Поправљен баг који изазива СИГАБРТ када се сложена функција позове са неправилним бројем аргумената
This commit is contained in:
parent
f8a4b9909a
commit
8e8759bf11
3
eval.c
3
eval.c
|
@ -209,7 +209,7 @@ apply:
|
|||
return result;
|
||||
}
|
||||
|
||||
object args = PROC_COMP_ARGS(procedure);
|
||||
object args = copyObject(PROC_COMP_ARGS(procedure));
|
||||
env definitionEnv = PROC_COMP_ENV(procedure);
|
||||
env procEnv;
|
||||
|
||||
|
@ -238,6 +238,7 @@ apply:
|
|||
deleteObject(parameters);
|
||||
SIGERR(argumentNumberError);
|
||||
}
|
||||
deleteObject(args);
|
||||
|
||||
object *currentExprPointer = &PROC_COMP_BODY(procedure);
|
||||
object currentExpr;
|
||||
|
|
Loading…
Reference in a new issue