diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-28 08:21:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-28 08:21:13 +0000 |
commit | ba91d65da984ba19dff664422ca48b2a179ea4b9 (patch) | |
tree | f3b17799c39c335e74f5b497bf4f6a5dd814b0b2 /src/interp/g-util.boot | |
parent | 0b252ef7247d7c46b66c8996d52e80cff75e7062 (diff) | |
download | open-axiom-ba91d65da984ba19dff664422ca48b2a179ea4b9.tar.gz |
* algebra/integer.spad.pamphlet (Integer): Use builtin functions
%irem and %iquo.
* algebra/si.spad.pamphlet (SingleInteger): Likewise.
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index a2cda77b..11bc3b28 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -380,17 +380,19 @@ for x in [ ['%iodd?, :'ODDP], ['%ismall?, :'FIXNUMP], -- binary integer operations. - ['%iadd,:"+"], - ['%igcd,:'GCD], - ['%ige, :">="], - ['%iinc,:"1+"], - ['%ilcm,:'LCM], - ['%ile, :"<="], - ['%imax,:'MAX], - ['%imin,:'MIN], - ['%imul,:"*"], - ['%ipow,:'EXPT], - ['%isub,:"-"], + ['%iadd, :"+"], + ['%igcd, :'GCD], + ['%ige, :">="], + ['%iinc, :"1+"], + ['%ilcm, :'LCM], + ['%ile, :"<="], + ['%imax, :'MAX], + ['%imin, :'MIN], + ['%imul, :"*"], + ['%irem, :'REM], + ['%iquo, :'TRUNCATE], + ['%ipow, :'EXPT], + ['%isub, :"-"], -- unary float operations. ['%fabs, :'ABS], |