From 16979e1df537412a0baba5c95c7d0036bf0ddf9b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 28 Jul 2010 10:41:18 +0000
Subject: 	* interp/sys-globals.boot ($VariableCount): Remove. 	*
 interp/spad.lisp (QUOTIENT2): Remove. 	(REMAINDER2): Likewise. 	*
 algebra/integer.spad.pamphlet (Integer): Use builtin  %idivide. 	*
 algebra/si.spad.pamphlet (SingleInteger): Likewise.

---
 src/algebra/strap/OUTFORM.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/algebra/strap/OUTFORM.lsp')

diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index 43a2d0bc..21ec89fa 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -594,8 +594,8 @@
 
 (DEFUN |OUTFORM;center;$I$;22| (|a| |w| $)
   (|OUTFORM;hconcat;3$;48|
-      (|OUTFORM;hspace;I$;29|
-          (QUOTIENT2 (- |w| (|outformWidth| |a|)) 2) $)
+      (|OUTFORM;hspace;I$;29| (TRUNCATE (- |w| (|outformWidth| |a|)) 2)
+          $)
       |a| $)) 
 
 (DEFUN |OUTFORM;left;$I$;23| (|a| |w| $)
-- 
cgit v1.2.3