Reserved word is not quoted

[KES777]

How to reproduce:

	$sqlt->add_procedure(
		name =>  'accounting_ready',
		parameters =>  [
			{ argmode => 'in',  name => '_o',  type => 'order' },
		],
		extra =>  {
			returns =>  { type => 'table( invoice boolean, usage boolean )' },
			definitions =>  [
				{ language  =>  'sql'  },
				{ quote => "\$\$\n",  body => <<'	FUNC' =~ s!^\t!!grm  =~ s!;\n!;/**/\n!grs  }
		SELECT true, true
		FROM "order" o
		WHERE o.id = _o.id
	FUNC
	]});

Result (Actual: red, expected: green):

-CREATE FUNCTION "accounting_ready" (in _o order)
+CREATE FUNCTION "accounting_ready" (in _o "order")
 RETURNS table( invoice boolean, usage boolean )
 LANGUAGE sql
 AS $$
	SELECT true, true
	FROM "order" o
	WHERE o.id = _o.id
$$
;

Here order is a table in the database

current workaround:

	$sqlt->add_procedure(
		name =>  'accounting_ready',
		parameters =>  [
-			{ argmode => 'in',  name => '_o',  type => 'order' },
+			{ argmode => 'in',  name => '_o',  type => '"order"' },
		],
		extra =>  {
			returns =>  { type => 'table( invoice boolean, usage boolean )' },
			definitions =>  [
				{ language  =>  'sql'  },
				{ quote => "\$\$\n",  body => <<'	FUNC' =~ s!^\t!!grm  =~ s!;\n!;/**/\n!grs  }
		SELECT true, true
		FROM "order" o
		WHERE o.id = _o.id
	FUNC
	]});