aboutsummaryrefslogtreecommitdiff
path: root/src/interp/interop.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r--src/interp/interop.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot
index c1ae917c..5ecd28f0 100644
--- a/src/interp/interop.boot
+++ b/src/interp/interop.boot
@@ -213,7 +213,7 @@ oldAxiomCategoryNthParent([.,.,.,parvec,dom], n, env) ==
catform := parvec.(n-1)
VECTORP KAR catform => catform
newcat := oldAxiomPreCategoryBuild(catform,dom,nil)
- SETELT(parvec, n-1, newcat)
+ parvec.(n-1) := newcat
newcat
oldAxiomCategoryBuild([catform,:.], dom, env) ==