diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 02:55:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 02:55:42 +0000 |
| commit | 114fbbb2d4a1b9aca26064d8a2fcf180c65911d2 (patch) | |
| tree | a195da9d7a0551ac8a4ace8a0721afd0299f70d2 /src/interp/i-coerce.boot | |
| parent | 7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63 (diff) | |
| download | open-axiom-114fbbb2d4a1b9aca26064d8a2fcf180c65911d2.tar.gz | |
* interp/cparse.boot: Replace call to cons with bracket syntax.
* interp/cstream.boot: Likewise.
* interp/database.boot: Likewise.
* interp/define.boot: Likewise.
* interp/g-boot.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/i-analy.boot: Likewise.
* interp/i-coerce.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/incl.boot: Likewise.
* interp/int-top.boot: Likewise.
* interp/macex.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/pile.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/ptrees.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/types.boot: Likewise.
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 92828a74..2acea070 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -1229,7 +1229,7 @@ computeTTTranspositions(t1,t2) == tower.(rest perm) := t towers := CONS(VEC2LIST tower,towers) towers := [reassembleTowerIntoType tower for tower in towers] - if first(towers) ~= t2 then towers := cons(t2,towers) + if first(towers) ~= t2 then towers := [t2,:towers] nreverse towers decomposeTypeIntoTower t == |