diff options
| author | Graydon Hoare <[email protected]> | 2010-07-04 16:42:58 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-07-04 16:42:58 -0700 |
| commit | 1833fa1df24eb546d7bd9d7eb37a579b34779238 (patch) | |
| tree | 94ca25ec88ac36e341120eaf8075c382a75bccb8 /src/boot/me | |
| parent | Improve type.ml logging. (diff) | |
| download | rust-1833fa1df24eb546d7bd9d7eb37a579b34779238.tar.xz rust-1833fa1df24eb546d7bd9d7eb37a579b34779238.zip | |
Fix generic-derived-type.rs and generic-obj-with-derived-type.rs.
Diffstat (limited to 'src/boot/me')
| -rw-r--r-- | src/boot/me/type.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml index ff1bbd72..b27e68dc 100644 --- a/src/boot/me/type.ml +++ b/src/boot/me/type.ml @@ -1068,7 +1068,7 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit = TYSPEC_dictionary names | Ast.COMP_named (Ast.COMP_idx i) -> - let init j = if i + 1 == j then tv else ref TYSPEC_all in + let init j = if i = j then tv else ref TYSPEC_all in TYSPEC_tuple (Array.init (i + 1) init) | Ast.COMP_atom atom -> |