From 708ad63d818302003bbff2306892007cdc9888cf Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 28 Jul 2010 14:50:10 +0000
Subject: 	* interp/spad.lisp (DIVIDE2): Remove. 	* interp/vmlisp.lisp
 (QSQUOTIENT): Likewise. 	(QSREMAINDER): Likewise. 	*
 interp/buildom.boot: Use quo and rem in leur of QUOTIENT and 	REMAINDER or
 variants. 	* interp/g-timer.boot: Likewise. 	* interp/g-util.boot:
 Likewise. 	* interp/htsetvar.boot: Likewise. 	*
 interp/i-output.boot: Likewise. 	* interp/incl.boot: Likewise. 	*
 interp/msgdb.boot: Likewise. 	* interp/nrungo.boot: Likewise. 	*
 interp/pspad1.boot: Likewise. 	* interp/topics.boot: Likewise.

---
 src/interp/topics.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/topics.boot')

diff --git a/src/interp/topics.boot b/src/interp/topics.boot
index 6310986c..656a7dee 100644
--- a/src/interp/topics.boot
+++ b/src/interp/topics.boot
@@ -221,7 +221,7 @@ topics con ==
 
 code2Classes cc ==
   cc := 2*cc
-  [x while cc ~= 0 for x in $topicClasses | ODDP (cc := QUOTIENT(cc,2))]
+  [x while cc ~= 0 for x in $topicClasses | ODDP (cc := cc quo 2)]
   
 myLastAtom x == 
   while x is [.,:x] repeat nil
-- 
cgit v1.2.3