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

use rem instead of mod

parent 2c6d6118
......@@ -851,7 +851,7 @@ where
= doit (inc i) s l [c:m] (safemod (dec n) tabwidth)
safemod x m
# s = x mod m
# s = x rem m
| s <= 0 = s + m
= s
......
......@@ -821,8 +821,8 @@ IntToMemSize mem
= kilomemstr;
= memstr;
where
mega = mem mod Mega == 0;
kilo = mem mod Kilo == 0;
mega = mem rem Mega == 0;
kilo = mem rem Kilo == 0;
megamemstr = toString (mem / Mega) +++ "M";
kilomemstr = toString (mem / Kilo) +++ "K";
memstr = toString mem;
......@@ -926,7 +926,7 @@ FixedPointToString n
= toString (n>>8);
where
first_digit=fraction / 10;
second_digit=fraction mod 10;
second_digit=fraction rem 10;
fraction=toInt (toReal (n bitand 255) * 100.0 / 256.0);
//-- path fiddling utils
......
......@@ -213,7 +213,7 @@ AC_Add path date info abccache
#! c = {c & [i] = newstuff}
= { abccache
& cache = c
, curi = (inc i) mod ABCCacheSize
, curi = (inc i) rem ABCCacheSize
, maxi = if (m < (dec ABCCacheSize)) i m
}
where
......
......@@ -285,7 +285,7 @@ ReadOptionsFile file
| string.[offset] == ' '
= indentation (offset+1) (indent+1) string
| string.[offset] == '\t'
= indentation (offset+1) (indent + (TabSize - (indent mod TabSize))) string
= indentation (offset+1) (indent + (TabSize - (indent rem TabSize))) string
| otherwise
= (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