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/FPS-.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/FPS-.lsp')

diff --git a/src/algebra/strap/FPS-.lsp b/src/algebra/strap/FPS-.lsp
index cee87448..744e62bf 100644
--- a/src/algebra/strap/FPS-.lsp
+++ b/src/algebra/strap/FPS-.lsp
@@ -14,7 +14,7 @@
 (DEFUN |FPS-;digits;Pi;2| ($)
   (LET ((#0=#:G1402
             (MAX 1
-                 (QUOTIENT2
+                 (TRUNCATE
                      (SPADCALL 4004
                          (- (SPADCALL (|getShellEntry| $ 14)) 1)
                          (|getShellEntry| $ 16))
-- 
cgit v1.2.3