Def kindcase(k;a.f(a);l,t.g(l;t))
Def == if islocal(k) f(act(k)) else g(lnk(k);tag(k)) fi

is mentioned by

Def V(i;k) == kindcase(k;a.1of(2of(w))(i,a);l,tg.1of(2of(2of(w)))(l,tg))	[w-V]
Def valtype(i;a) == kindcase(kind(a);a.w.TA(i,a);l,tg.w.M(l,tg))	[w-valtype]
Def w-action-dec(TA;M;i)(k) Def == kindcase(k;a.TA(i,a);l,tg.if destination(l) = i M(l,tg) else Void fi)	[w-action-dec]

In prior sections: mb event system 2

Try larger context: EventSystems IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html