andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Jan (janneke) Nieuwenhuizen 2022-09-12 08:15:41 +02:00
parent 298420cffe
commit 89c21c5fe7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/math.c
View File

@ -257,11 +257,11 @@ modulo_024 (struct scm *a, struct scm *b)
error (cstring_to_symbol ("divide-by-zero"), a);
int sign_p = 0;
size_t w = v;
// if (v < 0)
// {
// sign_p = 1;
// w = -v;
// }
if (v < 0)
{
sign_p = 1;
w = -v;
}
while (n < 0)
n = n + w;
// size_t u = n;