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/functor.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/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 8b21eba9..eed8a982 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -78,13 +78,13 @@ DomainPrint1(D,brief,$e) == for u in D for i in 1..],:$Sublis] for u in D for i in 1.. repeat brief and i>1 => nil - uu:= COPY_-SEQ rest u - uu.4:= '"This domain" + uu := copyVector rest u + uu.4 := '"This domain" if not brief then SAY ['"View number ",i,'" corresponding to categories:"] PRETTYPRINT first u if i=1 and vector? uu.5 then - vv:= COPY_-SEQ uu.5 + vv := copyVector uu.5 uu.5:= vv for j in 0..maxIndex vv repeat if vector? vv.j then @@ -121,7 +121,7 @@ DPname() == name PacPrint v == - vv:= COPY_-SEQ v + vv := copyVector v for j in 0..maxIndex vv repeat if vector? vv.j then l:= ASSQ(keyItem vv.j,Sublis) |