From ba91d65da984ba19dff664422ca48b2a179ea4b9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 28 Jul 2010 08:21:13 +0000
Subject: 	* algebra/integer.spad.pamphlet (Integer): Use builtin
 functions 	%irem and %iquo. 	* algebra/si.spad.pamphlet
 (SingleInteger): Likewise.

---
 src/interp/g-util.boot | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

(limited to 'src/interp')

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],
-- 
cgit v1.2.3