Commit 5aab8cda authored by Diederik van Arkel's avatar Diederik van Arkel

use rem instead of mod

parent 2c6d6118
...@@ -851,7 +851,7 @@ where ...@@ -851,7 +851,7 @@ where
= doit (inc i) s l [c:m] (safemod (dec n) tabwidth) = doit (inc i) s l [c:m] (safemod (dec n) tabwidth)
safemod x m safemod x m
# s = x mod m # s = x rem m
| s <= 0 = s + m | s <= 0 = s + m
= s = s
......
...@@ -821,8 +821,8 @@ IntToMemSize mem ...@@ -821,8 +821,8 @@ IntToMemSize mem
= kilomemstr; = kilomemstr;
= memstr; = memstr;
where where
mega = mem mod Mega == 0; mega = mem rem Mega == 0;
kilo = mem mod Kilo == 0; kilo = mem rem Kilo == 0;
megamemstr = toString (mem / Mega) +++ "M"; megamemstr = toString (mem / Mega) +++ "M";
kilomemstr = toString (mem / Kilo) +++ "K"; kilomemstr = toString (mem / Kilo) +++ "K";
memstr = toString mem; memstr = toString mem;
...@@ -926,7 +926,7 @@ FixedPointToString n ...@@ -926,7 +926,7 @@ FixedPointToString n
= toString (n>>8); = toString (n>>8);
where where
first_digit=fraction / 10; first_digit=fraction / 10;
second_digit=fraction mod 10; second_digit=fraction rem 10;
fraction=toInt (toReal (n bitand 255) * 100.0 / 256.0); fraction=toInt (toReal (n bitand 255) * 100.0 / 256.0);
//-- path fiddling utils //-- path fiddling utils
......
...@@ -213,7 +213,7 @@ AC_Add path date info abccache ...@@ -213,7 +213,7 @@ AC_Add path date info abccache
#! c = {c & [i] = newstuff} #! c = {c & [i] = newstuff}
= { abccache = { abccache
& cache = c & cache = c
, curi = (inc i) mod ABCCacheSize , curi = (inc i) rem ABCCacheSize
, maxi = if (m < (dec ABCCacheSize)) i m , maxi = if (m < (dec ABCCacheSize)) i m
} }
where where
......
...@@ -285,7 +285,7 @@ ReadOptionsFile file ...@@ -285,7 +285,7 @@ ReadOptionsFile file
| string.[offset] == ' ' | string.[offset] == ' '
= indentation (offset+1) (indent+1) string = indentation (offset+1) (indent+1) string
| string.[offset] == '\t' | string.[offset] == '\t'
= indentation (offset+1) (indent + (TabSize - (indent mod TabSize))) string = indentation (offset+1) (indent + (TabSize - (indent rem TabSize))) string
| otherwise | otherwise
= (indent, offset) = (indent, offset)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment