kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Поправљена функција за дељење

Browse source
This commit is contained in:
kappa 2019-01-16 01:10:27 +01:00
parent 25858c21e1
commit ecba64be1b
1 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
eval.c
View file

@ -222,11 +222,27 @@ object divide(object parameters)
} }
else if (listLength(parameters) == 1) else if (listLength(parameters) == 1)
{ {
NUM(result) = 1/NUM(CAR(parameters)); if (NUM(CAR(parameters)) != 0)
{
NUM(result) = 1/NUM(CAR(parameters));
}
else
{
TYPE(result) = errorObject;
ERRMSG(result) = divisionByZeroError;
}
} }
else else
{ {
NUM(result) = NUM(CAR(parameters))/NUM(add(CDR(parameters))); if (NUM(add(CDR(parameters))) != 0)
{
NUM(result) = NUM(CAR(parameters))/NUM(add(CDR(parameters)));
}
else
{
TYPE(result) = errorObject;
ERRMSG(result) = divisionByZeroError;
}
} }
return result; return result;