aboutsummaryrefslogtreecommitdiff
path: root/src/interp/topics.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/topics.boot')
-rw-r--r--src/interp/topics.boot2
1 files changed, 1 insertions, 1 deletions
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