ревизия 7525 (собраная мной)

using System;
using System.Console;

using Nemerle;
using Nemerle.Collections;
using Nemerle.Compiler;
using Nemerle.Compiler.Macros;
using Nemerle.Compiler.Parsetree;
using Nemerle.Utility;

def tbVariant = 
    <[ decl:
        public variant VarName
        {
            | VarOpt01Name { Str: string; Int: int; }
        }
    ]>;


WriteLine(tbVariant);

вылетает с internal compiler error

<[01;31merror<[0m: internal compiler error: got MatchFailureException exception
   в Nemerle.Compiler.Macros.quoted_sstring(Splicable st) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 180
   в Nemerle.Compiler.Macros.quoted_member(ClassMember mem) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 316
   в Nemerle.Compiler.Macros._N_static_proxy74618.apply(ClassMember _N_sp_parm74625) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 366
   в Nemerle.Collections.List.Map['a,'b](list`1 l, Function`2 f) в E:\SVN\Nemerle Compiler\lib\list.n:строка 912
   в Nemerle.Compiler.Macros.Lift['a](list`1 l, Function`2 f) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 145
   в Nemerle.Compiler.Macros.lift_members(list`1 members) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 366
   в Nemerle.Compiler.Macros.quoted_tydecl(TopDeclaration td) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 400
   в Nemerle.Compiler.Macros.quoted_member(ClassMember mem) в E:\SVN\Nemerle Compiler\ncc\typing\Macros.n:строка 321
   в Nemerle.Compiler.Typer.DoType(PExpr expression, TyVar expected, Boolean is_toplevel_in_seq) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1710
   в Nemerle.Compiler.Typer.TypeExpr(PExpr e, TyVar expected, Boolean is_toplevel_in_seq) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1092
   в Nemerle.Compiler.Typer.TypeExpr(PExpr e, TyVar expected) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1070
   в Nemerle.Compiler.Typer.TypeLocalDefinition(Boolean is_mutable, Name name, Location name_location, PExpr val) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1797
   в Nemerle.Compiler.Typer.DoType(PExpr expression, TyVar expected, Boolean is_toplevel_in_seq) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1196
   в Nemerle.Compiler.Typer.TypeExpr(PExpr e, TyVar expected, Boolean is_toplevel_in_seq) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1092
   в Nemerle.Compiler.Typer.DoType(PExpr expression, TyVar expected, Boolean is_toplevel_in_seq) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1649
   в Nemerle.Compiler.Typer.TypeExpr(PExpr e, TyVar expected, Boolean is_toplevel_in_seq) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1092
   в Nemerle.Compiler.Typer.TypeExpr(PExpr e, TyVar expected) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1070
   в Nemerle.Compiler.Typer.TypeExpr(PExpr e) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 1064
   в Nemerle.Compiler.Typer.RunTyper() в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 340
   в Nemerle.Compiler.Typer..ctor(MethodBuilder m) в E:\SVN\Nemerle Compiler\ncc\typing\Typer.n:строка 158
   в Nemerle.Compiler.CompilerComponentsFactory.CreateTyper(MethodBuilder m) в E:\SVN\Nemerle Compiler\ncc\misc\ComponentsFactory.n:строка 33
   в Nemerle.Compiler.MethodBuilder.RunBodyTyper() в E:\SVN\Nemerle Compiler\ncc\hierarchy\ClassMembers.n:строка 814
   в Nemerle.Compiler.MethodBuilder.Compile() в E:\SVN\Nemerle Compiler\ncc\generation\HierarchyEmitter.n:строка 992
   в Nemerle.Compiler.TypeBuilder.EmitImplementation() в E:\SVN\Nemerle Compiler\ncc\generation\HierarchyEmitter.n:строка 581
   в Nemerle.Compiler.TypesManager._N_emit_impl_36008.apply_void(TypeBuilder _N_36007) в E:\SVN\Nemerle Compiler\ncc\generation\HierarchyEmitter.n:строка 333
   в Nemerle.Compiler.TypesManager._N_maybe_f_36614.apply_void(TypeBuilder _N_36613) в E:\SVN\Nemerle Compiler\ncc\hierarchy\TypesManager.n:строка 225
   в Nemerle.Collections.List.Iter['a](list`1 l, FunctionVoid`1 f) в E:\SVN\Nemerle Compiler\lib\list.n:строка 906
   в Nemerle.Core.list`1.Iter(FunctionVoid`1 f) в E:\SVN\Nemerle Compiler\lib\list.n:строка 307
   в Nemerle.Compiler.TypesManager.Iter(list`1 builders, FunctionVoid`1 f) в E:\SVN\Nemerle Compiler\ncc\hierarchy\TypesManager.n:строка 231
   в Nemerle.Compiler.TypesManager.Iter(FunctionVoid`1 f) в E:\SVN\Nemerle Compiler\ncc\hierarchy\TypesManager.n:строка 242
   в Nemerle.Compiler.TypesManager.compile_all_tyinfos(Boolean aux_phase) в E:\SVN\Nemerle Compiler\ncc\generation\HierarchyEmitter.n:строка 357
   в Nemerle.Compiler.TypesManager._N__N_l35422_35525.apply_void() в E:\SVN\Nemerle Compiler\ncc\generation\HierarchyEmitter.n:строка 219
   в Nemerle.Compiler.Solver.Enqueue(FunctionVoid action) в E:\SVN\Nemerle Compiler\ncc\typing\Solver.n:строка 197
   в Nemerle.Compiler.TypesManager.EmitDecls() в E:\SVN\Nemerle Compiler\ncc\generation\HierarchyEmitter.n:строка 218
   в Nemerle.Compiler.ManagerClass.Run() в E:\SVN\Nemerle Compiler\ncc\passes.n:строка 432
   в Nemerle.CommandlineCompiler.MainClass.main_with_catching() в E:\SVN\Nemerle Compiler\ncc\main.n:строка 86