diff options
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index cf26b9d4..b48cd2c5 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -204,7 +204,7 @@ oldAxiomCategoryLookupExport(catenv, self, op, sig, box, env) == null(pack) => nil if not VECP pack then pack:=apply(pack, CONS(self, rest catform)) - RPLACA(CDDR catenv, pack) + catenv.rest.rest.first := pack fun := basicLookup(op, sig, pack, self) => [fun] nil |