diff options
Diffstat (limited to 'src/interp/g-timer.boot')
| -rw-r--r-- | src/interp/g-timer.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot index 9f1fd02f..9de4e082 100644 --- a/src/interp/g-timer.boot +++ b/src/interp/g-timer.boot @@ -102,8 +102,8 @@ normalizeStatAndStringify t == integer? t => K := 1024 M := K*K - t > 9*M => strconc(STRINGIMAGE QUOTIENT(t + 512*K,M), '"M") - t > 9*K => strconc(STRINGIMAGE QUOTIENT(t + 512,K), '"K") + t > 9*M => strconc(STRINGIMAGE((t + 512*K) quo M), '"M") + t > 9*K => strconc(STRINGIMAGE((t + 512) quo K), '"K") STRINGIMAGE t STRINGIMAGE t |