class Racc::Grammar::DefinitionEnv

def _defmetasyntax(type, id, action, &block)
  if action
    idbase = "#{type}@#{id}-#{@seqs[type] += 1}"
    target = _wrap(idbase, "#{idbase}-core", action)
    _regist("#{idbase}-core", &block)
  else
    target = _regist("#{type}@#{id}", &block)
  end
  @grammar.intern(target)
end