From a6972102342611afb6647b34714556262de1e084 Mon Sep 17 00:00:00 2001 From: Brian Anderson Date: Sun, 1 May 2011 16:01:27 -0400 Subject: Hide unexported tag variants --- src/comp/middle/resolve.rs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/comp') diff --git a/src/comp/middle/resolve.rs b/src/comp/middle/resolve.rs index 82975112..39b8e901 100644 --- a/src/comp/middle/resolve.rs +++ b/src/comp/middle/resolve.rs @@ -407,9 +407,11 @@ fn lookup_name_wrapped(&env e, ast.ident i, namespace ns) case (ast.mie_tag_variant(?item, ?variant_idx)) { alt (item.node) { case (ast.item_tag(_, ?variants, _, ?tid, _)) { - auto vid = variants.(variant_idx).node.id; - auto t = ast.def_variant(tid, vid); - ret some[def_wrap](def_wrap_other(t)); + if (visible(e, i, m)) { + auto vid = variants.(variant_idx).node.id; + auto t = ast.def_variant(tid, vid); + ret some[def_wrap](def_wrap_other(t)); + } } case (_) { log_err "tag item not actually a tag"; -- cgit v1.2.3