=cut
-# -------------------------------------------------------------------
sub produce {
my $translator = shift;
$DEBUG = $translator->debug;
return $output;
}
-# -------------------------------------------------------------------
sub mk_name {
my ($name, $scope, $critical) = @_;
return unreserve($name);
}
-# -------------------------------------------------------------------
sub unreserve { $util->quote($_[0]) }
1;
-# -------------------------------------------------------------------
-
=pod
=head1 SEE ALSO