diff options
| author | Graydon Hoare <[email protected]> | 2010-06-30 15:26:34 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-06-30 15:26:34 -0700 |
| commit | 4765d1e358b86ea118c3aae0ff3b01bebbf9b5cb (patch) | |
| tree | cd0666b6755a562ccd181b5e7d52b24c6127b8cb /src/boot/me | |
| parent | Improve logging in type. (diff) | |
| download | rust-4765d1e358b86ea118c3aae0ff3b01bebbf9b5cb.tar.xz rust-4765d1e358b86ea118c3aae0ff3b01bebbf9b5cb.zip | |
Fix another type bug I introduced yesterday; found through wondrous logging technology.
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 2a208db7..0d4081af 100644 --- a/src/boot/me/type.ml +++ b/src/boot/me/type.ml @@ -522,7 +522,7 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit = let rec unify ty = match ty with Ast.TY_tup (elem_tys:Ast.ty array) -> - if (Array.length elem_tys) <> (Array.length tvs) + if (Array.length elem_tys) < (Array.length tvs) then fail () else let check_elem i tv = |