public override Func <Context, ITerm> VisitTerm_letrec([NotNull] FullSimpleParser.Term_letrecContext context)
{
var info = context.GetFileInfo();
var v = context.LCID().GetText();
var type = _typeVisitor.Visit(context.type());
var terms = context.term();
var eqTerm = Visit(terms[0]);
var inTerm = Visit(terms[1]);
return(ctx =>
{
var abs = new Abs(info, v, type(ctx), eqTerm(ctx.AddName(v)));
var fix = new Fix(info, abs);
return new Let(info, v, fix, inTerm(ctx.AddName(v)));
});
}
/// <summary>
/// Visit a parse tree produced by the <c>term_letrec</c>
/// labeled alternative in <see cref="FullSimpleParser.term"/>.
/// <para>
/// The default implementation returns the result of calling <see cref="AbstractParseTreeVisitor{Result}.VisitChildren(IRuleNode)"/>
/// on <paramref name="context"/>.
/// </para>
/// </summary>
/// <param name="context">The parse tree.</param>
/// <return>The visitor result.</return>
public virtual Result VisitTerm_letrec([NotNull] FullSimpleParser.Term_letrecContext context)
{
return(VisitChildren(context));
}
