diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-07-13 15:21:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-07-13 15:21:36 +0000 |
| commit | 44050a23809cd331fc529cdf84063c23f6ed86dc (patch) | |
| tree | 41a214d57d2adeb3a6b29300142bc3db60534697 /src/interp/category.boot | |
| parent | fafd79de190f215a8f1767631b4792ada11518ef (diff) | |
| download | open-axiom-44050a23809cd331fc529cdf84063c23f6ed86dc.tar.gz | |
* boot/tokens.boot: copyString, copyTree, and copyVector are now
builtin library functions.
* interp/br-util.boot: Use copyVector instead of COPY-SEQ.
* interp/category.boot: Likewise.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/newfort.boot: Likewise.
Diffstat (limited to 'src/interp/category.boot')
| -rw-r--r-- | src/interp/category.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot index 9ce65944..23d5a042 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -469,7 +469,7 @@ JoinInner(l,$e) == FundamentalAncestors:= [newentry,:FundamentalAncestors] else ancindex:= nil if not copied then - $NewCatVec:= COPY_-SEQ $NewCatVec + $NewCatVec:= copyVector $NewCatVec copied:= true if ancindex then ($NewCatVec.ancindex:= bname; reallynew:= nil) @@ -516,7 +516,8 @@ JoinInner(l,$e) == copied:= false originalvector:= false $NewCatVec.n:= b.0 - if not copied then $NewCatVec:= COPY_-SEQ $NewCatVec + if not copied then + $NewCatVec:= copyVector $NewCatVec -- It is important to copy the vector now, -- in case SigListUnion alters it while -- performing Operator Subsumption |