diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-15 19:30:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-15 19:30:34 +0000 |
| commit | 0d8fcdd4995bba86701b8184b288dd549a5336fa (patch) | |
| tree | 81e8f7491effa5959cd43ffdd9d9b94cef9d3f81 /src/interp/interop.boot | |
| parent | 8f2bad3b8cea97189a9e842ed0f78559aa4be795 (diff) | |
| download | open-axiom-0d8fcdd4995bba86701b8184b288dd549a5336fa.tar.gz | |
* interp/vmlisp.lisp (SETELT): Remove.
* interp/br-data.boot: Remove use of SETELT.
* interp/br-saturn.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/nruncomp.boot: Likewise.
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 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) == |