diff options
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 == |