aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nruncomp.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-02 10:53:56 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-02 10:53:56 +0000
commite694e02b3c8e9ae322df7440a29c3011a11503e7 (patch)
tree5dbeebcf26c3be930421b77d688384f0e19f8f5b /src/interp/nruncomp.boot
parent6835b7615420cbb3d0db15c2a5ab1c5785ff40dd (diff)
downloadopen-axiom-e694e02b3c8e9ae322df7440a29c3011a11503e7.tar.gz
More cleanups
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r--src/interp/nruncomp.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index c0c14683..7b9a7efe 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -435,7 +435,7 @@ stuffDomainSlots dollar ==
proto4 := infovec.3
vectorRef(dollar,4) :=
vector? CDDR proto4 => [COPY_-SEQ first proto4,:rest proto4] --old style
- bitVector := dollar.3
+ bitVector := domainPredicates dollar
predvec := first proto4
packagevec := second proto4
auxvec := LIST2VEC [fn for i in 0..maxIndex predvec] where fn() ==