diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-28 04:51:23 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 04:51:23 +0000 |
commit | af089a02e32f424463e93e147b60222de0839f1e (patch) | |
tree | 221f73b1617d8246c1ca26d3a8ea38f5beac25ab /src/interp/g-timer.boot | |
parent | 17a1e0707ae07bd90ef6a9fafb2432027507bbf2 (diff) | |
download | open-axiom-af089a02e32f424463e93e147b60222de0839f1e.tar.gz |
* boot/tokens.boot: args is now a selector.
* interp/g-timer.boot: Use integer? in lieu of INTP.
* interp/i-syscmd.boot: Likewise.
* interp/msgdb.boot: Likewise.
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 49f73575..91b48708 100644 --- a/src/interp/g-timer.boot +++ b/src/interp/g-timer.boot @@ -99,7 +99,7 @@ normalizeStatAndStringify t == t := roundStat t t = 0.0 => '"0" FORMAT(nil,'"~,2F",t) - INTP t => + integer? t => K := 1024 M := K*K t > 9*M => strconc(STRINGIMAGE QUOTIENT(t + 512*K,M), '"M") @@ -109,7 +109,7 @@ normalizeStatAndStringify t == significantStat t == RNUMP t => (t > 0.01) - INTP t => (t > 100) + integer? t => (t > 100) true roundStat t == |