diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-12 19:45:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-12 19:45:25 +0000 |
| commit | 64a0eb226331be7e41848a7d807c5caa4f248ffa (patch) | |
| tree | 23ef14bc4775b65a8286ecf2afd46e0e5e3d3642 /src | |
| parent | b112067f55188644f3202ea0d992e81bacc64f04 (diff) | |
| download | open-axiom-64a0eb226331be7e41848a7d807c5caa4f248ffa.tar.gz | |
Remove another instance of LIST2VEC
Diffstat (limited to 'src')
| -rw-r--r-- | src/interp/compiler.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 86a0f629..9498f917 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1846,7 +1846,7 @@ compComma(form,m,e) == Tl' := [coerce(T,t) or return "failed" for T in Tl] Tl' = "failed" => nil [["asTupleNew0", ["getVMType",t], [T.expr for T in Tl']], m, e] - T := [["LIST2VEC", [T.expr for T in Tl]], + T := [['%vector, :[T.expr for T in Tl]], ["Cross",:[T.mode for T in Tl]], e] coerce(T,m) |